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PREFACE 



This publication is a reference manual for the programmer using the MP-60 FORTRAN 
compiler. The manual defines the external characteristics of MP-60 FORTRAN, that is, 
those features which are observable or under the active control of the user. 

Knowledge of the MP-60 computer operation is assumed for this manual. The operation of 
the MP-60 machine instructions is described in the MP-60 hardware reference manual 
(publication No. 14306500). 
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INTRODUCTION 



MP-60 FORTRAN (FTN-60) Is a FORTRAN compiler that is hosted on the CONTROL 
DATA® MP-60 Computer and generates object code for execution on the MP-60. FTN-60 
runs In conjunction with the MPX-RT, MPX-MP, and MPX-MC operating systems. 

OPTIONAL OUTPUTS 



Outputs that may be selected include: 

• Relocatable binary cards or card images 

• Source program listing 

• Assembly language listing of machine instructions 

• Load-and-go object program for immediate execution 

• Symbolic cross reference list 

Diagnostic messages are printed when the compiler detects coding errors. 

CODING FORMAT 

Statements are coded in one of the following formats. 

Columns Content 

1 through 5 Statement label 

6 Continuation designator (nonzero character) 

7 through 72 Statement 

or 

1 Comment designator (C) 

2 through 72 Comments 
73 through 80 Identification and sequencing 



O 

o 
o 

A line contains a string of up to 72 FORTRAN characters. The character positions in a 
J^ line (referred to as columns) are numbered consecutively 1 through 72. 



Q 
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The character C in column 1 identifies the line as comment. Comments are for the 

convenience of the programmer and permit him to describe the program steps; they do not affect f J 

program execution. A comment may be inserted at any point in the program. Comment cards 

are listed along with the source statements when the source list option is selected. 

Columns 1 through 5 may be blank or may contain a label that identifies the line for 

reference elsewhere in the program. A statement number (label) must be unique within a ^.^ 

subprogram and in the range 1 through 99999. I j, 

A statement that is labeled and never referenced (a null) causes an informative diagnostic ^-^ 

during compilation but does not inhibit execution of the compiled program. (|^) 

The compiler ignores blanks and leading zeros in statement numbers. ^-^ 

Statements in the formats outlined in this manual appear in columns 7 through 72. A 

statement that exceeds the 66 characters allowed on a single card may be continued on ^>, 

successive (continuation) cards. A maximum of 19 continuation cards is allowed per 'xjJ 

statement. Continuation cards are not labeled; columns 1 through 5 must be blank. A 

character other than a zero or a blank in column 6 designates continuation. /"x 

FORTRAN statements within a program, subroutine, or fiinction must appear In the order 

of their classes (e.g., every class 1 statement in a program must come before a class 2 r'~'\ 

or higher statement, etc.). For a list of the FORTRAN statement classes, refer to 

Appendix D. 

The compiler does not interpret columns 73 through 80. These columns appear on the ''•*■ ^ 

source listing and are for sequoicing or program identification. 

FORTRAN CHARACTER SET 

The character set has two subsets, alphanuiheric characters and special characters. 

Alphanumeric characters are as follows: 

A through Z 

throu^ 9 ^> 

S|>ecial characters are as follows; ^^^ 

blank ( left parenthesis 

+ plus ) rlg^t parenthesis ^ ' 

minus , comma , 

equals . period ^ 

* asterisk $ currency symbol 

/ slash 
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r^ 



O 



o 



o 



h 



BASIC ELEMENTS 



An FTN-60 program or subprogram consists of source language statements necessary to 
define a problem and the steps in its solution. The source language consists of basic 
language elements that make up expressions and statements. 

CONSTANTS 



FTN-60 accepts six basic types of constants: integer, hexadecimal, real, double precision 
real, ASCH, and logical. The type of a constant is determined by its form. Double pre- 
cision real constants occupy two consecutive computer words (64 bits); integer, hexadecimal, 
real, and ASCII constants occupy one computer word (32 bits); and logical constants occupy 
one bit. 

If a constant exceeds the allowed range, the statement that contains it is rejected during a 
compilation and a diagnostic is provided. 

INTEGER 

An integer constant consists of 1 through 10 decimal digits in the range -2^^ < M <2^^ 
(-2,147,483,648 to 2,147,483,647). The constant is translated as a 31-bit value and a 
sign bit. A negative number is stored in two's complement format. 

HEXADECIMAL 



A hexadecimal constant is up to eight hexadecimal digits preceded by a currency symbol in 
the form: $n . ...n. 

Each digit corresponds to four bits of the translated constant. If fewer than eight digits 
are written when expressing a hexadecimal constant, the constant is right justified and zero 
filled. When a minus sign precedes the constant, the constant is stored in two's comple- 
ment format. 
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REAL 



A real constant is represented by a string of decimal digits. It is expressed as real 
either with a decimal point or with an exponent representing a power of ten, or with both, 
In the forms: 

±nE±s ±n. dM. E±8 

±n.n ±n.nE:ts :i:.n ±.nE±s 

s is the exponent to the base ten. The constant is translated into the MP-60 single 
precision floating point format. 

DOUBLE PRECISION REAL 

A double precision real constant is expressed in the same manner as a real constant but 
expressed with a D in the forms: 

±aD±8 ±n. D ±n. D±8 

in.nDis ^.nD ±.nD±s 

The constant is translated into the MP-60 double precision floating point format. 

ASCII 

An ASCn constant is a string of characters of the form nHw, nAw, or nRw. 

nHw - left justified blank filled 

nAw - left Justified zero filled 

nRw - right justified zero filled 

The constant is translated Into four 8-bit ASCII codes within a single computer word. If 
n is greater than four, a diagnostic is issued. 



o 
o 

o 

o 



o 
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o 
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LOGICAL 

A logical constant is a truth value: 

.TRUE, or .FALSE. 
A logical constant occupies one bit of storage: 1 for true and for false. 
For example: 
LOGICAL XI, X2: 

XI = .TRUE. 

X2 = .FALSE. 

VARIABLES 



A variable name consists of 1 to 8 alphanumeric characters; the first character must be 
alphabetic. It represents a specific storage location. 



The FTN-60 compiler recognizes simple and subscripted variable names. A simple 
variable name represents a single quantity; a subscripted variable name represents a 

O single quantity within an array of quantities. The type of a variable is designated either 

explicitly in a type declaration or implicitly by the first letter of the variable name. A 
first letter of I, J, K, L, M, or N indicates an integer (fixed point) variable; any other 
^ first letter indicates a single precision real (floating point) variable. 



SIMPLE VARIABLES 



#% A simple variable name identifies the location where a variable value can be stored. A 

^^ variable which has been defined as double precision real occupies two consecutive memory 

locations. Integer and single precision variable names refer to single memory locations. 
^% Variable names which have been declared as character or logical types correspond to 

^^ character addresses and bit addresses, respectively. 



o 





SUBSCRIPTED VARIABLES 

A subscripted variable name identifies the location in an array where a variable value can 
be stored. 
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An array is a block of successive memory locations comprising the elements of the array. 
Each element of an array is referenced by the array name plus a set of subscripts. The 
type of an array is determined by the array name or a type declaration. l| I 

Arrays may have one, two, or three dimensions; the maximum number of array elements ^- 

is the product of the dimensions. The maximum number of words used in an array cannot IB 

exceed 65,535. The array name and its dimensions must be declared at the beginning of 
the program in a DIMENSION, COMMON, or SCRATCH COMMON statement. 



More than three subscripts cause a compiler diagnostic. Program errors may result if 
subscripts are larger than the dimensions initially declared for the array. A single 
subscript notation may also be used for a two- or three-dimensional array if it is the 
structural location of the variable. However, diagnostics will occur if the elements of a 
one-dimensional array, A(d ), are referred to as A(I, J, K) or A(I, J). 



For example: 






A(I.J) 


Ba+2, J+3, 2*K+1) 


Q(14) 


P(KLIM, J, LIM+5) 


SAM(J-6) 


A(133) 


B(l. 2, 3) 


A(233) 





Loc A(l,j,k) = loc A(l,l,l) + ((1-1H0-1>*I+ (k-l)*I*J) *E 



O 



Subscript Forms 

A subscript has one of the following forms; c and d are integer constants and I is a l^ 

simple integer variable. 

(c*I±:d) (I±d) (c*D \^ 

(I) (c) ^> 



'KJ-'' 









At no time during program execution can a simple Integer variable used as an index 
variable take on a value greater than 65,535. 

Array Structore ^'^ 

|Elements of an array are stored by column in ascending storage locations. The location of /^) 

an array element with respect to the first element is determined by the maximum array ^^ 

dimensions and the type of the array. 

The first element of array A(I, J, K) Is (1,1,1). The location of element A(i, j,k) with ^ ' 

respect to A(l,l,l) Is: 



O 
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o 

^^ The quantity in brackets is the subscript expression. E is the element length (the number 

of storage locations required for each element of the array). For integer and real arrays, 
^ E = 1; for double precision real arrays, E = 2; for character arrays, E = 1; and for 

^^ logical arrays, E = 1. Subscripts i, j, and k may be any of the allowed subscript forms. 

^% Factoring the expression produces: 

Base address S, the first location of A(l,l, 1) | 

Constant addend -(1-I+I*J)*E 



o 



^^1 Index function (i+I*j+I*J*k)*E 

When i, j, k are other than simple variables (for example, C*I±d), constants such as d 
#Jj appear In the constant addend. For example: 



O 



c 

o 

o 



In the array declared as A(3,3,3); where A is type double precision real: 
1=3; 1=1,2,3 
J=3; j=l,2,3 
K=3; k=l,2,3 

The elements of this double precision real array are stored two words per element starting 
with A(l, 1, 1) In S, the lowest location reserved for the array. 



Locations 


Array Element A . 


S, S4-1 


^ll 


S+2, S+3 


^11 


S+4, S+5 


^11 


S+6, S+7 


^121 


Sf8, S+9 


"^221 


SH-10, S+11 


^321 


S+12, Stl3 


^31 
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Locations Array Element A. 
AxhJL 



133 
S+50, S+51 A 



233 

S+52, Sf53 A„„„ 

333 

Referring to the example, if loc A(1,1,1)=S, the locations of A(2,2,3) with respect to 
A(l,l, 1) are: 

Loc A(2,2,3) = loc A(l,l,l) + [(2-l>+{2-l)*3+(3-l)*3*3] *2=S+44, S+45 



A implies A(l,l) 
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S+48, S+49 A^gg Q' 

o 



o 



C.#' 



The following relaxation on the representation of subscripted variables is permissible (f / 

(d. represents an integer constant): 

Aa,J,K) implies A(l,J,K) 

A(IMJ) implies A(IMJ,1,1) 

A implies A (1,1,1) ^ 






A(I,J) implies A(I,J) 

A (I) implies A (1, 1) J^ 



4'\ 






C 



o 



o 



o 
o 

O EXPRESSIONS 

O 

o ' ' ~" 

An expression is formed from elements and operators. The four kinds of expressions 

Oare arithmetic, relational, logical, and masking. Arithmetic expressions have numeric 
values. Relational and logical expressions have truth values. Masking expressions have 
32-bit logical arithmetic values. Each type of expression is associated with a specific 
gi\^ group of operators and operands. 

O 

o 



ARITHMETIC EXPRESSIONS 

The arithmetic operators are: 

+ addition 
subtraction 

* multiplication 

/ division 

** exponentiation 
The arithmetic elements are: 

Constants 

Simple or subscripted variables 

Function references 



c 

o 

o 

Any constant, variable, or function reference by itself can be an arithmetic expression. 
^ If X is an expression, then (X) is an expression. If X and Y are expressions, then the 

^'^ following are expressions. 

^ X + Y X-Y -X 

X * Y X / Y X**Y 

If op is an arithmetic operator and X and Y are arithmetic expressions, then X op op Y is 
not a valid expression. 

o 
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Examples of expressions: ^-' 

A -Q 

3.14159 

o 

B + 16.427 ^^ 

XBAR + (B(I.J+l,K)/3.) (Q 



-(C + DELTA*AERO) 
(B-SQRT(X/Y))/(2. 0*A) 



<TEMPT+V(M,MAX)*Y**C)/(H-FACT(K+3)) 

RELATIONAL EXPRESSIONS 

A relational expression is: 



ej ope^ 



e and e are arithmetic expressions and op is an operator that belongs to the set. The 
relatlonair expressions are: 



.EQ. 


Equal to 


.NE. 


Kot equal to 


.GT. 


Greater than 


.GE. 


Greater than or equal to 


.LT. 


Less than 


• I.E. 


Less than or equal to 






GROSS - (TAX*0. 04) Q 









'f"' 
V^" 



o 

G 
O 
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^^ A relation is true if e^ and e satisfy the relation specified by op; otherwise, it is false. 

A false relational expression is assigned the value of the logical constant .FALSE.; a true 
r% relational expression is assigned the value of the logical constant .TRUE.. 

Rules for relational expressions are as follows: 

1) Evaluation is from left to right in a relation of the form: 

C ^ °^ "2 

/% The following relations are equivalent: 



o 











o 



^ °P ^2 



e^ op (e^) 



(Sj) op e^ 



(e^) op (e^) 



2) Use a relational operator between two arithmetic expressions. 



3) In a relational expression, do not use more than two arithmetic expressions 
■ ^ connected by a relational operator. Not allowed: 



\ op % °P % 

4) Separate two relational expressions with a logical connector, .AND. or .OR., 
in the forms: 



{.AND.1 
.OR. / 

{,AND.\ 
.OR. / 



e„ op e„ 
2^3 



e op e 
3 '^ 4 



^iP Examples of relational expressions: 



A .GT. 16. R(I) .GE. R(I-l) 

R-Q(I)*Z .LE. 3.141592 K .LT. 16 

B-C .NE. D+E I .EQ. JJ(K) 
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LOGICAL EXPRESSIONS 

A logical expression is formed with logical operators and logical elements and has the 
value true or false (the values have the same internal representation as relational 
expressions). 

The logical operators are: 

.OR. logical disjunction 



The logical operator that indicates negation appears in the form: 

. NOT. L^ 

Each expression is evaluated by scanning from left to right, with logical operations beir^ 
performed according to the following hierarchy of precedence. 

1) .NOT. 

2) .AND. 

3) .OR. 

A logical variable, logical constant, or a relational expression is, in itself, a logical 
expression. If Li and L2 ^^® logical expressions, then the foUowii^ are logical 
expressions: 

. NOT. Lj 

Lj .AND. Lg 

Lj^ .OR. 1^ 



o 

o 

o 
o 
o 



.AND. logical conjunction ^ 

.NOT. logical negation 

■ o 

A logical expression has the general form: 

h °P h °P h-" O' 

Lj[ are logical variables, logical constants, logical functions, logical expressions enclosed ^_^ 

in parentheses, or relational expressions; and op is the logical operator .AND. (indicating 
conjunction) or .OR. (indicating disjunction). 



'\..y 



3-4 



>ns beit^ 


.f^, 
H^y 

.'^'"^•, 
'ky 






)gical 

[ 
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o 
o . 

^^ If L IS a logical expression, then (L) is a logical expression. If Lj, Lg are logical 

expressions and op is .AND. or .OR., then L op op L2 Is never legitimate. However, 
MF% .NOT. may appear in combination with .AND. or .OR. only as follows: 



o 






Lj .AND. .NOT. Lg 
L^ .OR. .NOT. Lg 



^ Lj .AND. (.NOT....) 

Lj .OR. (.NOT....) 



.NOT. may appear with itself only in the form .NOT. (.NOT. (.NOT. L)) 
Other combinations cause compilation diagnostics. 



If L^, Lg are logical expressions, the logical operators are defined as follows: 
(J) .NOT. L^ is false only if L^ is true 

C^ Li .AND. Lg is true only if Lj^, Lg are both true 

L^ . OR. Lg is false only if Lj^, Lg are both false 

(i Examples: 

Ol) B-C<A<B + C 
is written B - C .LE. A .AND. A .LE. B+C 

2) FICA greater than 737.10 and PAYNMB equal to 12600.00 

is writt«i FICA .GT. 737.10 .AND. PAYNMB . EQ. 12600.00 

MASKING EXPRESSIONS 



Masking expressions consist of masking operators and elements; they resemble logical 
operations in appearance only. 



o 

^i»if In a masking expression, 32-bit logical arithmetic is performed bit -by-bit on the operands 

within the expression. The operands may be any type variables, constants, or expressions 
^^ other than logical. No mode conversion is performed during evaluation. If the operand 

^•^ is double precision, operations are performed on the higher order word. The result of a 

masking operation is integer. Although the masking operators are identical in appearance 

O 
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o 
o 

to the logical operators, their meanings are different. They are listed accordii^ to ^^ 

hierarchy. The following definitions apply: \_p 



. NOT. 




blt-by-bit logical negation 




.AND. 




bit-by-bit logical multiplication 




.OR. 




bit-by-bit logical addition 




.XOR. 




blt-by-bit exclusive OR 




operations 


are 


as follows: 




£ Z 


P.AND.V D.OR.V P.XOR.V 


.NOT.D 


1 1 


1 


1 





1 





1 1 





1 





1 1 


1 











1 



o 
o 









'A-- 



,'0 
^ 



If B^ are masking expressions, variables, or constants of any type other than logical, the 
following are masking expressions: 

• NOT.Bi 

B .AND.B 

B^.OR.B2 

If B is a maskii^ expression, then (B) is a masldng expression. .NOT. may appear with 
.AND. or .OR. only as follows: 

.AND.. NOT. 

.OR.. NOT 

.AND. (.NOT. ...) (J 

.OR. (.NOT. ...) 

Masking expressions of the following forms are evaluated from left to right. 

A .AND. B .AND. C... 

A .OR. B .OR. C... 



o 






o 
o 

Masking expressions must not contain logical operands. 
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EVALUATION OF EXPRESSIONS 

Evaluation of expressions is generally from left to right with the precedence of the 
operators and parentheses (the deepest nested parenthetical subexpression is evaluated 
first) controlling the sequence of operation. The precedence of operators for arithmetic 
evaluation is as follows: 

** (exponentiation) Class 1 

/ (division) Class 2 

"' (multiplication) Class 2 

+ (addition) Class 3 

- (subtraction) Class 3 

Relationals Class 4 

• NOT. Class 5 
.AND. Class 6 

• OR. Class 7 

.XOR. aass 7 

In an expression with no parentheses or within a pair of parentheses in which unlike 
classes of operators appear, evaluation proceeds in the order indicated above (lowest 
class operators first). In expressions containing like classes of operators, evaluation 
proceeds from left to right (A **B**C) is evaluated as (A**B)**C). 

When writing an integer expression, it is important to remember the left-to-right scanning 
process; in addition, if dividing an integer quantity by an integer quantity yields a 
remainder, the result will be truncated (thus 11/3 = 3). 

An array element name (a subscripted variable) used in an expression requires the 
evaluation of its subscript. The type of expression in which a function reference or 
subscript appears does not affect, nor is it affected by, the evaluation of the actual 
arguments or subscripts. 
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MIXEO.MODE ARITHMETIC 



Arithmetic expressions can contain mixed types of constants and variables. FTN-60 
performs the arithmetic operations by converting to one type according to established rules. 

In arithmetic expressions, the operand types are double precision real, real. Integer, and 
character. The following rules establish the relationship between the type of an evaluated 
expression and the types of the operands it contains: 

1) The order of dominance of the <^erand types within an expression from highest 
to lowest is: 

a) Double 

b) Real 

c) Integer 

d) Character 

2) The dominant operand tjrpe determines the type of an evaluated arithmetic 
expression. The mode/t3'pe relationships are: 



^"^^Type A 
Type B^^'Vs^^^ 


Character 


Integer 


Real 


Double 


Character 


Integer 


Integer 


Real 


Double 


Integer 


Integer 


Integer 


Real 


Double 


Real 


Real 


Real 


Real 


Double 


Double 


Double 


Double 


Double 


Double 



For example, when A is real and B Is integer, the mode of A op B is real. In mixed- 
mode arithmetic, the mode used to evaluate any portion of an expression is determined by 
the dominant type thus far encountered within the expression and the normal hierarchy of 
arithmetic operations; integer mode will be used when an integer type Is first encountered 
and will be converted to the appropriate real mode when a real type is encountered. 
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REPLACEMENT STATEMENTS 



^p 



Expressions, operators, and operands may be combined to form two types of statements, 
executable and nonexecutable. An executable statement performs a calculation or directs 
control of the program; a nonexecutable statement provides the compiler with information 
regarding variable structure, array allocation, and storage-sharing requirements. A 
source program is a group of FTN-60 statements. 



Statements can be divided into four classes: 

• Replacement 

• Declarative 

• Control 

• Input/output and encode/decode 



Arithmetic replacement statements incorporate expressions for addition, subtraction, mult||. 
plication, division, and exponentiation. Logical replacement statements may include 
relational and logical operators. 



Declarative statements permit a programmer to define the mode of a variable as logical, 
character, real, integer, or double precision; enter data; reserve common storage and 
^ overlay the same storage locations with variables ajod arrays during program execution. 



Control statements conditionally or unconditionally alter the sequence of program execution. 

Input/output and encode/decode statements permit transfer of data from one storage location 
to another or between computer storage and external equipment. Conversion and editing 
specifications provide diversity in input/output formats. 
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REPLACEMENT STATEMENT 



Tbe general form of the arithmetic replacement statement is: 

V = e 

e is an arithmetic, logical, or relational expression, and v is any simple or subscripted 
variable name. The operator = means that v is replaced by the value of expression e, 
with conversion for mode if necessary. 

For example: 



1 5 




7 






RESLT=X+Y-2. *R 








SUMX=X+Y+Z 








ARG(LAB)=2 *X+COMP**2 








SCEL=BIG .LE. SMALL 








TAB= .NOT. X .OR. Y .OR. Z .AND. 


A 






EE=A A. GE . BB. OR. CC . GE . DD 








BOOL= .TRUE. 





o 
o 

o 

o 

o 
o 






r ^■ 



/f A 



4^\ 



O 
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MULTIPLE REPLACEMENT STATEMENT 



The multiple replacement statement is an extension of the arithmetic replacement statement. 
It is evaluated right to left. 



V = V , 
n n-1 



V = V = e 
2 1 



e must be an arithmetic expression; v represents simple or subscripted variables and may 
be any of the standard types. 

The multiple replacement statement indicates that each of the variables v,...v is 
replaced by the value of the succeeding variable or by the value of e, in a m^er 
analogous to that employed in mixed- mode arithmetic statements. 

For example: 

Problem: Convert radians to degrees and minutes. 

Solution: 



DEGI=IDEG=DEG=BETA*57.296 
IMIN=(DEG-DEGI)*60 





Where: 




o 


BETA = 2.6 radians 


(real) 


o 


DEG = 148.9696 degrees 


(real) 


o 


IDEG = 148 degrees 


(integer) 


DEGI = 148.000 degrees 


(real) 


o 


IMIN = 58 minutes 


(Integer) 


e 


Result: 2.6 radians = 148 


degrees 58 m 


o 






e 
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MIXED-MODE REPLACEMENT STATEMENT 

Although the type of an evaluated expression Is determined by ths type of the dominant 
operand, this does not restrict the types that an identifier may assume. The following 
chart shows the v-to-e relationship for all of the standard modes. 

Arithmetic replacement statement: v = e 

V Identifier 

e Evaluated arithmetic expression 



^V..^^^Type of 
TypeX,.,^^ e 
of V ^*V^,^ 


Double 


Real 


Integer 


Character 


Double 


e — ►v 


Convert e to 
double precision 
real — ►v 


Convert e to 
double precision 
real — ► v 


Convert e to 
double preci- 
sion real — ►v 


Real 


Convert e to 
real — ►v 


e— ^v 


Convert e to 
real — ^v 


Convert e to 
real— ♦v 


Integer 


Convert e to 
integer— ►v 


Convert e to 
integer — ►v 


e — ►v 


Right justify 
and zero fill; 
e then— ^v 


Character 


Convert to 
integer; lower S 
bits — ►v 


Convert e to 
integer; lower 

8 bits — ►v 


Lower 8 bits 
of e— ♦v 


e^v 
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DECLARATIVE STATEMENTS 5 

o ^^ _^__ 

o 

Declarative statements are nonexecutable statements that: 
^^ • Assign word structure to variables (type) 

C* Reserve storage for arrays and single variables (DIMENSION, COMMON, and 
SCRATCH COMMON) 

#\ • Assign initial values to variables (data) 

The declarative COMMON, SCRATCH COMMON, EXTERNAL, TYPE, and DIMENSION 
#% statements may be placed in any order prior to the first executable statement of a program 

^-^ or subprogram. If the statements EQUIVALENCE and DATA are used, they must follow 

other declaratives in the indicated order and must precede the first executable statement. 

TYPE STATEMENTS 

A type statement designates the word structure of variable and function identities. FTN-60 
^! recognizes five standard types of fixed length as follows: 

^^ Type Declaration Word Structure 

Q 

DOUBLE PRECISION Two words per element 

\^ REAL One word per element 

INTEGER One word per element 

CHARACTER Eight bits per element 

LOGICAL One bit per element 



Rules: 



o 

1) Place the type declaration with other declaration statements prior to the first 
^■^ executable statement in a program or subprogram. 

2) Unless declared, a variable is integer if the first character of its identifier is I, 
^^ J. K, L, M, or N and real if the first character is any other letter. 



^ 
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3) la tjrpe statements, an identifier declared more than once causes a compiler 
diagnostic. 

4) An array identifier in the list designates the entire array. 
For example: 



1 5 




7 






DOUBLE PRECISION EL, CAMINO 






REAL IDE63, JEWEL 






INTEGER QUID, PRO, QUO 






CHARACTER ALPHA, BETA, GAMMA 






LOGICAL Al, B2 (4), A147 



o 

o 
o 

o 



DIMENSION STATEMENT 



o 

o 






The nonexecutable statements DIMENSION, COMMON, and SCRATCH COMMON reserve 
storage for arrays. A subscripted variable in an expression represents an element of an 
array of variables. 

DIMENSION Vj (8^, Sg, s^), v^ (s^, s^, s^),... 

An array name, v , has up to three unsigned integer subscripts, s , separated by commas. 

The number of storage locations reserved for a given array is determined by the product 
of the subscripts in the subscript string and the number of words per type. An array may 
occupy a maximum of 65,535 words. 

For example: 



1 5 




7 






REAL HERCULES 

CHARACTER BEAT 

DIMENSION HERCULES (10,20), BEAT (5,3) 



5-2 
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VARIABLE DIMENSIONS 

If an entry in a declarator subscript is an integer variable name, the array is 
variable and the variable names are called variable dimensions. Such an array 
may appear only in a procedure subprogram. The dummy argument list of the 
subprograms must contain the array name and the integer names that represent 
the variable dimensions. The values of the actual parameter list of the reference 
must be defined prior to calling the subprogram and may not be redefined or 
undefined during execution of the subprogram. The maximum size of the actual 
array may not be exceeded. Every array in an executable program requires at 
least one associated constant array declaration through subprogram references. 

For example: 

SUBROUTINE XMAX (DATA, K, J) 

DIMENSION DATA (K,6,J) 

In a subprogram, a symbolic name that appears in a COMMON statement may not 
identify a variable array. 
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COMMON STATEMENTS Q 



A program may be divided into independently compiled subprograms that use the same data. 
The COMMON statements reserve storage areas, scratch or data, that can be referenced by 
more than one subprogram. 

COMMON/name/list assigns data common storage locations to variables and arrays 

designated in the list. Values in data common may be preset with a DATA statement. ,f^ 

COMMON, COMMON// or SCRATCH COMMON/nameAlst assigns scratch common locations 
to variables and arrays designated in the list. These may not be preset with data. 

A maximum of 30 common (scratch and data) storage blocks may be allocated per sub- 
program. The number of common blocks in a program is limited only by available 
memory. 

A subprogram may declare and use some of the same common blocks dsfitied by another 
subprogram and at the same time define additional common storage. 

Associated with each reserved storage block is an alphanumeric name that identifies the 
storage area. The name may be up to eight characters in length, and the first character 
must be alphabetic. Common with no name is treated as scratch common and is given a 
unique storage block. 



Rules: 



1) Place COMMON and SCRATCH COMMON statements with other declarative state- 
ments prior to the first executable statement in the program. 

2) The list is composed of subscripted or nonsubscripted variable identifiers. If a 
nonsubscripted array name appears on the list, the dimensions must be defined 
by a DIMENSION statement in the subprogram. 

3) Attempting to list an identifier in both scratch and data common doubly defines the 
variable and causes a diagnostic. 

4) The order of identifiers in the COMMON and SCRATCH COMMON statements 
determines their order in the common storage block. 



6) The type and quantity of identifiers determine the length of the common block. 

7) A subprogram maj rearrange the allocation of storage locations in common. 
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5) At the beginning of program execution, the contents of common (if not preset with a f v 

DATA statement) are undefined. 



o 
o 



n 



o 
o 

o 

c 
o 



o 





8) A subprogram may not increase the length of a common block assigned by 
the first subprogram loaded. However, it may use less common than the 
first program. The first program defining a common block must declare 
the maximum size of the block. 

9) When a subprogram does not need all of the locations reserved in common, 
dummy variables in the statement achieve correspondence or reserved areas. 

For example: 

SCRATCH COMMON list 

COMMON list 

SCRATCH COMMON/BLK/list 

COMMON/list 

COMMON/CAT/list 

COMMON/CAT/list/BLK/list 

EQUIVALENCE STATEMENT 

An EQUIVALENCE statement permits storage to be shared by two or more entities; it does 
not imply equality of entities. Each element in a given list is assigned the same storage 
(or part of the same storage) by the processor. 

EQUIVALENCE (kj), (kg), . . . , (kj^) 

Each k Is a list of the form: 

Each a Is either a variable name or an array element name (but not a formal parameter); 
the subscripts may contain only constants, m is greater than or equal to 2. 

EQUIVALENCE may not be used to reorder COMMON or reposition the base. The base 
of an equivalence group is the element with the smallest address, or, if in common, it is 
the beginning element of the common block. The effect of an EQUIVALENCE statement 
upon a common assignment may be the lengthening of a common block beyond the last 
assignment for that block made by a COMMON statement. An element or array is brought 
into COMMON if it is equivalenced to an element in COMMON. Two elements in COMMON 
must not be equivalenced to one another. 
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The following example illustrates changes in block lengths as the result of an EQUIVA- 
LENCE declairation. 

Given: Arrays A and B 

Sa subscript of A 

Sb subscript of B 

For example: 

A and C in common; B not in common 

Sb < Sa is a permissible subscript arrangement 

9> > Sa is not a permissible subscript arrangement 

Block 1 



origin A(l) 




COMMON/BLOCKl/A(4), C 


A(2) 


B(l) 


DIMENSION B(5) 


A(3) 


B(2) 


EQUIVALENCE (A(3),B^) ) 


A (4) 


B(3) 




C 


B(4) 
B(5) 





EQUIVALENCE statements must appear before DATA or executable statements in the 
progpram unit. 



o 
o 
o 

o 
o 
o 
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DATA STATEMENT 



o 
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The DATA statement enables the programmer to assign values to program variables or 
variables in data common at compile time. The DATA statements appear after the 
specification statement group and prior to the first executable statement of the program 
unit. The general form of the DATA statement is: 

DATA k /d /, kjdj k /d / 

L L £ z n n 

Each ki Is a list containing names of variables, array elements, or array names implying 
the entire array. Each d^ is a list of constants, any one of which may be preceded by a 
constant repeat factor, j*, where j is an integer constant. If a list contains more than 
one entry, the entries are separated by commas. 

Rules: 



1) The form of the constants in the list dj, rather than the type of the identifier in 
the list ki, determines the data type of the stored constants. 

2) If the specified constant has a different storage requirement than the corresponding 
variable, a usage diagnostic Is given and the constant is ignored. 

3) Any subscript expression must be an unsigned Integer constant. 

4) Formal parameters may not appear In a list kj. 

5) When the form j* appears before a constant. It indicates tliat the constant Is to be 
r^eated j times. 

6) An ASCII or h^cadeclmal constant may appear In the list di. 

7) A variable or array defined by a DATA statement may not be In scratch common. 



For example: 



DIMENSION ARRAY(IO) 

DATA X,Y,Z/1.,1.5,2.0/,FACT(1)/1./ 

DATA ARRAY/10*0. /, BLANK/$20202020/, LIST/4HDATA/ 
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O CONTROL STATEMENTS 






o 



O Program execution normally proceeds from one statement to the statement immediately 

following it In a FORTRAN program. Control statements are used to alter this sequence 



or to repeat program segments. 
GO TO STATEMENTS 



The statement labels used in the GO TO statements must be associated with executable 
statements in the same program unit as the GO TO statement. 



UNCONDITIONAL GO TO 

The form of the unconditional GO TO statement is: 

GO TO k 
k is a statement label. 



^r%. Execution of this statement discontinues the current sequence of execution and resumes 

^^ execution at the statement labeled k. 



COMPUTED GO TO 



o 

^ The form of the computed GO TO statement is: 

GO TO (kj.kg k^).i 

^^ kj represents statement labels, and i is a simple integer variable. Variable i may only 

^p assume values 1 < i < n. The transfer of control is to statement k . 

OThis statement acts as a many-branch GO TO; i is preset or computed prior to its use in 
the GO TO statement. The variable 1 must not be specified by an ASSIGN statement. No 
compilation diagnostic is provided for this error, but the branching is undefined. 
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For example: 
K = 4 

• ■ ■ 

GO TO (100, 200, 300, 400, 500), K 
Statement number 400 will be executed next. 

ASSIGNED GO TO 

The form of the ass^ned GO TO statement is: 

GO TO m, (k,,k ,...,k ) 
X £ n 



ASSIGN 



For example: 

ASSIGN 10 TO NN 

GO TO NN, (5, 10, 15, 20) 

Statement number 10 will be executed next. 
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k represents statement labels, and m is a simple integer variable. '^^ 

This statement acts as a many-branch GO TO. The variable m is assigned an integer '^ 

value k in a preceding ASSIGN statement; m cannot be defined as the result of a computation. 
No diagnostic is given if m is computed, but the branching is undefined. A compile-time 
diagnostic is given if the list is missing. 






-ff — ■■ 
The form of the GO TO assignment statement is: ^ 

ASSIGN k TO m 

k is one of the statement labels appearing in the GO TO list; m is the simple integer 

variable in the assigned GO TO statement. At the time of execution of an assigned GO ^^^ 

TO statement, the current value of m must have been assigned by an ASSIGN statement. \J 



o 



o 
o 



IF STATEMENTS 

Conditional transfer of control is provided with the IF statements. 
ARITHMETIC IF 



o 
o 

o 

o 

The form of the arithmetic IF statement is: 
O IF (e) k^.k^.kg 

Ce is an arithmetic expression of type integer, real or double precision, and k represents 
statement labels. ^ 

OThis statement causes expression e to be evaluated and control transferred according to 
that value. 

e < jump to k 
e = jump to k 



e > jump to k 

For example: 

IF (A*B-CSIN(X)) 10, 10, 20 

IF (N) 5, 6, 7 

IF (A/B*C) 10, 11, 12 



LOGICAL IF 



The form of the logical IF statement is: 

O IF(/)S 

^1^ / is a logical expression and S is an executable statement (not a statement label). S must 

^ not be a DO or another IF. If e is true, S is executed. If e is false, S is treated as a 

CONTINUE statement. 

e 



e 



For example: 

IF (L) GO TO 3 

IF (A.GT.16.0.OR.A.EQ.0.) A=B 
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DO STATEMENT 



The DO statement makes it possible to repeat a group of statements immediately following 
the DO statement a number of times, changing the value of a simple integer variable for 
each repetition. The form of the DO statement is: 

DO n i = mj^.m™, mg 

n is the label (number) of the statement ending the DO loop; i is a simple integer index 
variable. The mj are Indexing parameters; they must be unsigned nonzero integer con- 
stants or simple integer variables, i is initially set equal to m^t and after each execution 
of the DO loop, m3 is added to i. (When omitted, m3 assumes a value of 1.) When i 
becomes greater than m2> ^^ ^O loop is satisfied. 



o 
o 
o 

o 
o 



o 
o 

The DO statement, the statement labeled n, and any intermediate statements constitute a 

DO loop. Statement n may not be a GO TO, FORMAT, another DO statement, an arith- r^^^ 

metic IF statement, RETURN, STOP, PAUSE, or a logical IF containing any one of these XJ^ 

statements. 

DO LOOP EXECUTION 

Should mi exceed m2 on the initial entry to the loop, the loop is executed once and control ^-^ 
passes immediately to the statement following statement n. If it does not exceed m2. the 

loop is executed. The value of i is increased by m3 and again compared with m2. The f ^ 

process continues imtil i exceeds m2. The DO loop is then satisfied, and control passes to Vj^' 
the statement immediately following statement n. 

If a transfer out of the DO loop occurs before the DO is satisfied, the value of 1 is pre- ^-^ 

served and may be used in subsequent statements. 

o 

o 
o 
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DO NESTS 



When a DO loop contains another DO loop, the grouping is called a DO nest. The last 
statement of a nested DO loop must either be the same as the last statement of the outer 
DO loop or occur before it. If D^.Dg D^ represent DO statements where the sub- 
scripts indicate that Di appears before D2 (which appears before D3. etc.) and ni no n 
represent the corresponding limits of the Dj, then n^ must appear before (or coincide withf 
nm-l,...,nm-m and n2 must appear before (or coincide with) n^. Nesting may be to 50 



■D_ 



I— D. 



When two or more DO loops end with the same statement, the innermost DO loop is 



c 




satisaed Hrst. 
Examples: 


1) DO 1 1=1,10,2 







DO 2 J=l,5 
DO 3 K=2,8 

• 
• 





• 

3 CONTINUE 






2 CONTINUE 


DO 4 L=l,3 

• 
• 





• 

4 CONTINUE 


• 


1 CONTINUE 
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2) DO 5 1=1,5 
DO 5 J=1,10 
DO 5 K=J,15 

5 CONTINUE 

3) DO 100 L=2, LIMIT 
DO 10 1=1, 10 

DO 10 J=l, 10 

« 

10 CONTINUE 

DO 20 K=K1,K2 

« 

20 CONTINUE 
100 CONTINUE 

DO LOOP TRANSFER 



D„ 



"l'°2'°3 



D. 



"2'°3- 



D. 



o 

o 

o 
o 

o 
o 

o 

1> 






'\^ 



In a DO nest, a transfer may be made from one DO loop Into a DO loop that contains it 
and a transfer out of a DO nest is permissible. 

The special case is transferring out of a nested DO loop and then transferring back to the 
nest. In a DO nest, if the range of Dj Includes the range of D; and a transfer out of the 
range of Dj occurs, then a transfer into the range of Di or D: is permissible. 
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In the following diagram, EXTR represents a portion of the program outside of the DO nest. 

r-D^ 

D. 
J 



Out 



In 




In 

If two or more DO loops terminate at the same logical point and a transfer is made to the 
terminal statement for the outer DO loop, then the inner DO should have its own terminal 
statement. 



CONTINUE STATEMENT 









The form of the CONTINUE statement is: 
CONTINUE 

The CONTINUE statement acts as a do-nothing instruction; control passes to the next 
sequential program statement. The CONTINUE statement is frequently used as the last 
statement of a DO loop to provide a loop termination when a GO TO or IF would normally 
be the last statement of the loop. 

PAUSE STATEMENT 

The forms of the PAUSE statement are: 

PAUSE 

PAUSE Message 

The PAUSE statement transfers control to a system subroutine. The following message is 
outputted on the console CRT. 

PAUSE Message 

The operator response is to accept the line. 
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STOP STATEMENT 

The forms of the STOP statement are: 

STOP 

STOP Mess^e 

A STOP statement terminates object program execution, prints STOP Message on the 
standard output unit, and exits to the MPX. 

PROGRAMMING CONSIDERATIONS 



o 
o 
o 

o 
o 
o 

o 

o 






The MP-60/20 and MP-60/30 CPUs include loofcdhead stack (LAS) hardware and supporting 

firmware and software. The LAS significantly increases the instruction execution rate O' 

of the CPU by the incorporation of integrated circuit memory in the CPU for the retention 

of program loops. Each MP- 60 program state is allocated a stack of 128 instructions. ^ ^ 

The MP-60 FORTRAN compiler has been designed to generate object code that uses the 
capabilities of the LAS. The FORTRAN programmer does not generate any special state- 
ments, but should be aware of internal compiler operation. 'V^ 



c 
c 



DO LOOP statements are analyzed by the compiler to determine if the loop can execute 

completely in the stack. A DO LOOP qualifies if it contains no external references 

(e.g., CALL statements or functions) and consists of 125 or less machine instructions 

(one instruction is needed for loop control and two instnictions following are automatically 

loaded into the stack). The loop length can be determined by obtaining an assembly 

listing (A-optLon on FTN control statement) or a cross-reference listing (R-option) and 

computing the length from relative program locations. A program branch instruction 

(GO TO, IF, etc.) potentially causes the LAS pointers to be reset. The LAS pointers 

are reset (and the stack effectively reloaded) when a branch is attempted bejrond stack 

limits. The compiler, therefore, substitutes stack fill branch instructions for normal 

branch instructions in DO LOOPS that qualify for stack execution. Thus, the first pass 

through the loop causes it to be loaded entirely into the stack. Normal sequential program 

execution can also take advantage of the LAS. This is due to the automatic read of the d~}) 

next two sequential instructions. However, each branch causes a reload of stack pointers ^^ 

and excessive branching can degrade performance. 

o 
o 
o 
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SUBPROGRAMS 



MAIN PROGRAM AND SUBPROGRAMS 



o 

O 

o 

CA main program is a set of FORTRAN statements bounded by a PROGRAM statement and 
an END statement. Execution starts at the beginning of the main program. 

O Subprograms (subroutines and functions) are sets of instructions that may be written and 

compiled separately from the main program and may be referred to by the main program. 

OA calling program is a main program or subprogram that refers to subroutines and 
functions. 

A subprogram name must be unique within the subprt^ram. The name of a function 
determines the type of a subprogram In the same manner that variable names determine 
types of variables. Names of subroutine subprograms are not classified by type. 



The PROGRAM statement Is the first statement of a main program; It can be used only 
once within a main program. The form of the PROGRAM statement is: 



PROGRAM name 



^ name is a one-to-eight alphanumeric Identifier beginning with an alphabetic character. 

SUBROUTINE SUBPROGRAMS 

A subroutine subprogram Is composed of a set of FORTRAN statements bounded by a 

^m^ SUBROUTINE statement and an END statement. A subroutine subprogram performs 

operations or calculations that may or may not return values to the calling program. 

A 

^"^ Subroutine subprograms are compiled Independently of the main program and may be 

complied In a separate run. 
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CALL STATEMENT 



A reference to a subroutine Is a call upon a computational or operational procedure. No 
resultant value is identified or associated with the name of the subroutine. The subroutine 
subprogram returns values, if any, to the main program through formal parameters or 
common. The executable statement in the calling program for referring to a subroutine is: 



The CALL statement transfers control to the subroutine named. A RETURN or END 
statement in the subroutine subprogram returns control to the calling program. A called 
subroutine may not call the calling program or itself. 

The actual parameters, p , of a subroutine call must agree in order, number (1 to 63), 
and type with the formal parameters of the subroutine subprogram. The following forms 
are acceptable for actual parameters: 

• Arithmetic expression 

• Constant 

• Variable, simple or subscripted 

• Relational expression 
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SUBROUTINE STATEMENT ^ 

o 

A subroutine begins with one of the following statements: 

SUBROUTINE name O 

SUBROUTINE name (P , P„,...,P ) _^ 

A subroutine name contains up to eight characters; the first character is alphabetic. The 

name must not appear In a declarative statement or within the subroutine subprogram. "^^ 

A SUBROUTINE statement can contain one to 63 formal parameters, p ; they may be array 
names, nonsubscripted variables, or names of other functions or subroutine subprograms. (f\ 

Formal parameters must not appear in COMMON, DATA, or EQUIVALENCE declarative ^ 

statements witiiln the subroutine subprogram. 






''K^ y 






CALL name 

CALL name (p^.P^,... ,P ) |^ 



o 



• 


Array name 




iT^' 


• 


Function reference 




i> 


• 


Subroutine name 




O 


• 


Logical expression 




o 
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A function reference, used as an actual parameter, must also be used in. an EXTEENAL 
statement in the calling program. 

When a subroutine is used with a parameter list, the subroutine name and its parameters 
must appear as separate actual parameters. 

Examples: 

I) Subroutine Subprogram 



SUBROUTINE ISHTAR (Y, Z) 

COMMON//X(100) 

Z=0 

DO 5 1=1,100 

Z=Z+X(I) 

CALL Y 

RETURN 

END 



Calling Program Reference 



COMMON//A(100) 
EXTERNAL PRNTIT 



CALL ISHTAR (PRNTIT, SUM) 



The formal parameters, Y and Z, in the subroutine subprogram are replaced by 
PRNTIT and SUM. CALL Y is a call to subroutine PRNTIT; PRNTIT must appear 
in an EXTERNAL statement for the compiler to recognize it as a subroutine name. 
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2) Subroutine Subprogram 



1 5 




7 






SUBROUTINE BLVDLR (A,B,W) 

W=2. *B/A 

END 



Calling Program Reference 



CALL BLVDLR (X(I), Y(I), W) 



CALL BLVDLR (Xa)+H/2., Y(I)+C(l)/2. , W) 



CALL BLVDLR p£a)+H, Y(I)+C(3), Z) 



FUNCTION SUBPROGRAMS 



A function subprogram Is defined externally to the program unit that references it. It is 
headed by a FUNCTION statement and terminated with an END statement. At least one 
RETURN statement is required to return control to the referencing program unit. 



DEFINING FUNCTION SUBPROGRAMS 



The form of the FUNCTION statement is: 



t FUNCTION name (a ,a ,...,a ) 



,t is either INTEGER, REAL, DOUBLE PRECISION, LOGICAL, or empty; name is the 
symbolic name of the function to be defined, a , called a dummy argument, represents 
a variable name, an array name, or an external procedure name. 
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o 
o 



'">, 
.> 



o 
o 
o 

n 



o 

2) The symbolic name of the function must also appear as a simple variable name 

Cin the defining subprogram. During every execution of the subprogram, this 
variable must be assigned a value at least once, either by appearing on the left- 
hand side of an arithmetic assignment statement or through its inclusion in an 
O input list. The value of the variable at the time of execution of any RETURN 

statement in this subprogram is called the value of the function. 

C3) The symbolic names of the dummy arguments may not appear in an EQUIVALENCE 
COMMON, or DATA statement in the function subprogram. 



o 



p 



The following restrictions apply to the construction of a function subprogram. 

1) A function must be typed in the calling program unit and in the function subpro- 
gram. Typing may be implicit or explicit (refer to Section 5). In the function 
subprogram, explicit typing may be done with the FUNCTION statement or with a 
type statement. Character functions can only be explicitly defined with a type statement. 

2) 



4) The function subprogram may assign values to one or more of its arguments in 
order to return results in addition to the value of the function. 



5) 



The function subprogram may contain any statement except the following: 
PROGRAM, SUBROUTINE, another FUNCTION statement, or any statement that 
directly or indirectly references the function being defined. 



6) The argument list must not be empty. 
REFERENCING FUNCTION SUBPROGRAMS 



o 

A function reference consists of the function name followed by an actual argument list 

©enclosed in parentheses. This reference may be used as a variable in an arithmetic or 
logical expression. The actual arguments, which constitute the argument list, must agree 
in order, number, and type with the corresponding dummy arguments in the defining pro- 
gram unit. The function name must assume type implicitly or appear in a type statement. 

An actual argument in an external function reference may be one of the following: 

• Variable name 

• Array element name 

• Array name 

• Expression 

• Name of an external procedure 
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If an actual argument Is an external function name or a subroutine name, then the corres- 
ponding dummy argument must be used within the called function as an external function 
name or a subroutine name, respectiveii^ If the actual argument is an expression, then 
this association is by value rather than by name. If an actual argument corresponds to a 
dummy argument that is assigned a value in the referenced function subprogram, the 
actual argument must be a variable name, an array element name, or an array name. 
Unless it is also a dummy argument, an external function name that is used as an actual 
argument must be specified in an EXTERNAL statement. 

Examples: 
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1) Function Subprogram ff^^ 

FUNCTION GREATER (A,B,) 
IF (A .GT. B) GO TO 2 

1 GREATER = A+B 
RETURN 

2 GREATER = A-B 
RETURN 
END 
Function Reference 






W(I,J) = FA + FB - GREATER(C-D,3. *AX/BX) ^^ 

2) Function Subprogram ^ 

FUNCTION PSYCHE (A.B.X) 
CALL X(A) 

PSYCHE = A/B*2.0+(A-B) 
RETURN 
END \.J'' 







c 



Q 
O 

o 



o 

o 
o 
c 

o 

o 

o 

G 





Function Reference 
EXTERNAL EROS 

R = S-PSYCHE (TLIM, ULIM.EROS) 

NOTE: 

X Is not the name of an external subroutine, but Is a parameter 
that represents the name of a subroutine. The subroutine that ' 
Is eventually called Is EROS. 

EXTERNAL STATEMENT 



When a CALL statement or function reference contains the name of a subroutine or function 
In Its list of actual parameters, the name must be declared in an EXTERNAL statement as 
follows: 

EXTERNAL name , name , , , . , name 

12 n 

name is a function or subroutine name used as a parameter. 

The EXTERNAL statement must precede the first executable statement of any program in 
which it appears. 

For example: 

To make function reference PHIft) , p ) In the statement C=D-PHI (Q(K),SINF), 
function SINF is an actual parameter of the function PHI and must be declared in the 
EXTERNAL statement. 



EXTERNAL SINF 
PHI, the function originally referenced, begins with the following statements. 



FUNCTION PHI(ALFA, PHI2) 
PHI=PHI2 (ALFA) 

Formal parameter ALFA takes the value Q(K); formal parameter PHI2 calls for SINF. 
Thus, the function subprogram PHI calculates the sine of Q(K). 
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ENTRY STATEMENT 

The form of the ENTRY statement is: 

ENTRY name 

The ENTRY statement Identifies an alternate entry point in a subprogram to be entered If 
the name of the entry point rather than the normal function name Is referenced in a 
statement. ENTRY may not be labeled or be within a DO loop. 

ENTRY CALL OR REFERENCE 



To enter a subprogram at the ENTRY statement, the name of the entry point is called 
(subroutine) or referenced (function) in the same way as a subroutine or function. 

ENTRY names must agree with the tirpe of the function name when used in a function 
subprogram. 

The actual parameters with the ENTRY statement must agree in type and mode with the 
formal parameters in the FUNCTION or SUBROUTINE statement for the subprogram. 

For example: 



1 5 




7 


45 




R=S+JAM (Q,2.*P) 



Subprogram execution would begin at ENTRY JAM In the subprogram. 



1 


s 




7 




10 




FUNCTION JOE(X,Y) 

JOE=X+Y 

RETURN 

ENTRY JAM 

IF ... 

• 
• 
• 

END 



o 

o 
o 

o 

o 
o 

ij 






,'''">-, 
'\_^^ 



*t„-- 



c 



'4^' 



C>' 
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\J'' 

o 

o 

FORTRAN compilation assumes that all statements and comments inserted between a 
Q PROGRAM, SUBROUTINE, or FUNCTION statement and an END statement belong to one 

^^ program. Comments inserted between END and a SUBROUTINE or FUNCTION statement 

are associated with the preceding program. A FINIS card follows the last program. I 

o 
o 
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RETURN STATEMENT 

The form of the RETURN statement is: 
RETURN 

A subprogram normally contains one or more RETURN statements to indicate the end of 
logic flow within the subprogram and return control to the calling program. 

In function references, control returns to the statement containing the function. In most 
subprograms, control returns to the calling program. A RETURN statement in the main 
program causes an exit to the monitor. 

END STATEMENT 

The form of the END statement is: 
END 

The END statement marks the physical end of a program, subroutine subprogram, or 
function subprogram. The END statement acts as a return to the calling p.rogram or 
function reference. 

PROGRAM ARRANGEMENT 



o 
o 
o 

o 



o 
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O FORMAT SPECIFICATIONS 8 

o 

Data transmission between internal and external storage requires an I/O control statement 
\J and, in some cases, a FORMAT statement. The I/O statement specifies the I/O device 

and the process and a list of data to be moved. The FORMAT statement specifies the 

C manner in which the data is to be converted, edited, and moved. In binary and buffered 

I/O statements, no FORMAT statement Is used. 

FORMAT STATEMENT 

%J' The ASCII I/O control statements (except BUFFER IN and BUFFER OUT) require a format 

list for internal and external conversion of the I/O list elements. A FORMAT statement Is: 

FORMAT (q^t^z^t^z^-.t^z^q^) 



<qi*l^l*2^2*"*n^nq2) ^® *^® format specification. Each q is a series of slashes or is 
empty. Each t is a field descriptor or group of field descriptors. Each z is a field 
separator, n may be zero. 

A FORMAT statement must be labeled. It Is noneTcecutable and can appear anywhere in 
the program. 



FIELD DESCRIPTORS 



The format field descriptors are: 

nPrFw.d Real conversion without exponent 

#% nPrEw.d Real conversion with exponent 

nPrDw.d Double precision conversion with exponent 

rlw Integer conversion 

^y r$w Hexadecimal integer 

OrLw Logical conversion 
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rAw ASCII conversion, left justified 

rRw ASCII conversion, right justified 

wHli h . ..h Heading and labeling 

wX Intra-line spacing 

Where: 

1) The letters F, E, D, I, $, L, A, R, H, and X indicate the manner of conversion 
and editing between the internal and external representations and are called the 
conversion codes. 



For all descriptors, the field width must be specified. For descriptors of the form w.d, 
the d must be specified, even if it is zero. Further, w must be grealjer than or equal 



The slash is used not only to separate field descriptors, but to specify demarcation of 
formatted records. 



O 

o 
o 

o 
o 
o 

o 






2) w is a nonzero integer constant representing the width of the field in the external C!) 

character string. 



■\^^ 



3) d is an integer constant representing the number of digits in the fractional part of 
the external character string. 

4) r, the repeat count, is an optional nonzero integer constant indicating the number 
of times to repeat the succeeding basic field descriptor. 

5) nP is optional and represents a scale factor designator. \4^, 

6) Each h is one of the characters capable of representation by the processor. 



c 

to d. i^ 

FIELD SEPARATORS C 

The format field separators (also called delimiters) are the slash and the comma. A '^ 

series of slashes is also a field separator. The field descriptors or groups of field 
descriptors are separated by a field separator. 



O 

o 
o 
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CONVERSION SPECIFICATIONS 

The data elements In I/O lists are converted from external to internal or from internal to 
external representation according to FORMAT conversion specificatioas. 

Ew.d OUTPUT 

The Ew.d specification converts floating-point numbers In storage to the ASCII character 
form for output. The field occupies w positions in the output record; the corresponding 
rounded floating-point number appears right justified In the field as: 

A .a...OCEdHee when -38^ ee 538 



CC.OC are the most significant digits of the integer and fractional part; ee are the digits 
in the exponent. If d is zero, the digits to the right of the decimial do not appear, but the 
exponent does. The fractional part contains a maximum of 11 digits. Field w must be 
wide enough to contain the Integer portion, sign, decimal point, E, and the exponent; that 
Is, w ^ 6 + d Is required. 

When the field Is not wide enou^ to contain the output value, asterisks are Inserted In the 
entire field. A field width, w, of less than five causes a format error. If the field Is 
longer than the output value, the quantity Is rl^t justified with blanks In the excess 
positions to the left. 

Examples: 

1) Proper use of Ew.d specification: 

A contains +67.32 or -67.32 

Right 

WRITE (10,10) A 

10 FORMAT (E10.3) 

Result: AA.673E+02 or A-.673E+02 
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2) Minus sign not provided for: 
A contains +67.32 or -67.32 
Wrong 

WRITE (10,10) A 
10 FORMAT (E8.3) 
Result: .673E-H)2 or ******** 

3) w is larger than required: ''^^ 



O 






.^'"A 



A contains 412.679 

WRITE (10,25) A 

25 FORMAT (E14.4) A_j<^ 

Result: aaaaa .4127E+03 

Ew.d INPUT i^ 

The Ew.d input specification converts the number in the input field to real and stores it '"^y 

in the appropriate location in memory. 

w specifies the total number of characters in the input field. In the left-to-right scannit^ "^ 

process, blanks in the field are interpreted as zeros. 



o 

o 
o 
o 



o 



o 



o 
o 

o 




The subfields for an Input value may Include integer, fraction, and exponent. 
±n. m ±n. m±s sbn. mEs ±n, mE±6 



±n. ia. ±g 


±n.EB 


±n. E±s 


±,m ±. m±s 


±. mEs 


±. mE±s 


m *n+8 


aiEs 


i:nE±6 


Leld structure of the 


input field: 


Input field 



-iisiL 



integer 



L 



fraction 
decimal point 



e'^ 



exponent 



An integer subfield begins with a sign (+ or -) or a digit followed by a string of digits and 
ends with a decimal point, E, sign, or the end of w. 

A fraction subfield begins with the decimal point, includes a string of digits, and ends with 
a sign, E, or the end of w. 

An exponent subfield may begin with E or a sign. When it begins with E, the sign may 
appear between E and the digits in the exponent. The digits in the exponent must be less 
than or equal to 38; the entire Input quantity must be in the range of 10~^^o IC?®. 

When no decimal point is present In the input field, d in the Ew.d specification is a 
negative power factor of ten. The internal representation of the Input quantity becomes: 

(integer subfield) X 10"^ X 10 ^^^f*"^**^ «"''**«^**) 

For example, if the specification is E7.7, the input quantity 3267+05 is converted and 
stored as 3267 x 10""^ x 10° = 32.67. 

When E conversion Is specified and a decimal point occurs in the input field, the decimal 
point overrides d. The Input quantity 3.67294+5 may be read by any specification allotting 
necessary field length but will always be stored as 3.67294x10^. 
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The field length w must be the same as the length of the input field. When w is too long, 
incorrect numbers may be read, converted, and stored as shown in the following example. 
When w Is too short, a portion of the input field may be left unread. The field w includes 
significant digits (maximum of 17), sign, decimal point, E, and exponent. 

For example: 

Input Card 



^ J+6.47E-01-2.36+5.321E+02 

j Y 9 "I^S-*]* 10 J 

Incorrect Specification 
READ 20, A,B,C 
20 FORMAT (E9.3,E7.2,E9.3) 
Reading proceeds as follows: 
■9- 




•9 



-I 



+6.47E-01 -2.36+5 



-2.36+5 .321E+02A 
.321E+02A 



+6.47E-01 -2.36+5 



.321E+02A 



First, +6.47E-01 is read, converted, and placed in location A. 

Next, -2.36+5 is read, converted, and placed in location B. The number desired was 
-2.36 but the specification error (E7.2 instead of E5.2) caused the two extra characters 
to be read. The number read (-2.36+5) is legitimate under the definitions and restrictions. 

Finally, .321E+020 is read, converted, and placed in location C. Here again, the input 
number is legitimate although it is hot the number desired. 

In this example, numbers are incorrectly read, converted, and stored, yet there is no 
immediate indication that an error has occurred. 



O 

o 
o 

o 

o 
o 






''•kJ 









o 
o 
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Examples: 






o 


Input Field 


Ew.d Input 
Specification 


Converted 
Value 


o 


+143.26E-03 


Ell. 2 


. 14326 


c 


-12.437629E+1 


E13.6 


-124.37629 


8936E+004 


£9.9 


. 08936 


c 


327.625 


E7.3 


327.625 


c 


4.376 


E5.0 


4.376 


o 


-.0003627+5 


Ell. 7 


-36.27 



c 

o 
o 



-.0003627E5 Ell. 7 



lEl 



E+06 



l.E Al 



E3.0 



E10.6 



E6.3 



Fw.d OUTPUT 



-36.27 



10. 



0. 



10. 



Remarks 

Subfields all present 

Subfields all present 

Input number converted as 
8936xl0"^xl04 

No exponent subfield 

Decimal point overrides 
specification 

Integer subfield contains 
only minus 

Integer subfield contains 
only minus 

Input number converted as 
l.xlO^ 

No integer or fraction subfield; 
zero stored regardless of 
exponent 

Blanks interpreted as zeros 



The Fw.d specification converts floating-point numbers in storage to ASCII form for out- 
put. The field occupies w positions in the output record; the corresponding list element 
must be a floating-point quantity that is converted and rounded to a decimal number, right 
justified in the field, as: 

AOC>>>oC.(C...(X 

a represents the most significant digits of the number (maximum of 17 significant digits). 
The number of decimal places to the right of the decimal point is specified by d. If d is 
zero, the digits to the right do not appear. If the number being converted is positive, the 
+ sign is suppressed, w must be large enough to include d, the decimal point, and the 
sign, in addition to the digits to the left of the decimal. 
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If the field w is too short to accommodate the nvimber, asterisks appear in the field. 

If the field w is loager than required to accommodate the number, it is right justified with 
blanks occupying the excess field positions to the left. 

Examples: 

1) Proper specification: 

A contains +123.45678 or -123.45678 
Right 

WRITE (10,10) A 
10 FORMAT (F10.5) 
Result: A 123.45678 or -123.45678 

2) w too small to accommodate integer portion: 
A contains +123.45678 

Wromc 

WRITE (20,10) A 
10 FORMAT (F8.5) 
Result: »♦♦♦♦**♦ 

3) w too small to accommodate sign: 
A contains -67.460 

Wrona^ 

WRITE (42,12) A 
12 FORMAT (F6.3) 
Result: ****** 
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'■4^' 









o 



o 

n 



o 

o 



o 



4) w larger than required 
A contains 412.6727 
Right. 

WRITE (10,25) A 
i% 25 FORMAT (F10.3) 






o 



o 



Result: AAA 412. 673 
Fw.d INPUT 



The Fw.d specification converts a number in an input field (w columns wide) to real and 
lj|! stores it in memory. The input field consists of an integer and a fraction subfield. An 

omitted subfield is assumed to be zero. 



Permissible subfield combinations are: 

• Integer and fraction 

• Integer by itself 

• Fraction by itself 

• Any of the above followed by an exponent subfield 

An integer subfield begins with a digit, + or -; blanks in the field are interpreted as 
zeros. The integer field is terminated by a decimal point or by the end of the input field. 

A fraction subfield begins with a decimal point; it is terminated by the end of the input 
field. 

In the Fw.d specification, d acts as a negative power factor of ten when the faction 
subfield is not present. The internal representation is (integer subfield) x 10"^. For 
example, the specification F4.3 causes the input quantity 3267 to be converted and stored 
as 3267 X 10-3 = 3.267. 

A decimal point in the input quantity causes d to be ignored. For example, 3.6789 may 
be read under any F6.d specification but will always be stored as 3.6789. 

The maximum number of significant digits tliat may appear in the combined interger- 
fraction field is 19. Excess digits are discarded from the right during the conversion 
process. 
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The field length specified by w in Fw.d should always be the same as the actual length of 
the input field containing the input number. When it is too long, incorrect numbers may 
be read, converted, and stored. When it is too short, significant digits may be lost. 



Examples: 








Fw.d Input 


Converted 


Input Field 


Specification 


Value 


367.2593 


F8.4 


367.2593 


37925 


F5.5 


.37925 



-4.7366 



F7.0 



-4.7366 



Remarks 

Integer and fraction field 

No fraction subfield; input 
number converted as 37925 
X 10~5 

Decimal point overrides 
specification 



.62543 


F6.5 


.62543 


No integer subfield 


.62543 


F6.2 


.62543 


Decimal point overrides d of 
specification 


+144. 15E-03 


F11.2 


. 14415 


Exponents are allowed in 
F input 


Dw.d OUTPUT 









D conversion corresponds to Ew.d output. The field occupies w positions of the output 
record; the list item is a double precision quantity which appears as a decimal number, 
right justified. 



O 

o 
o 

o 
o 
o 



■V_ 









e 



&.. OC...a£±ee 



when -38<ee<38 



O 



o 
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f) Dw.d INPUT 



o 

o 

o 
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D conversion corresponds to E conversion except that the list variables should be double 
precision names. D is acceptable in place of E as the beginning of an exponent subfield. 

For example: 
Input Card 



ni 



316752 98443E-03+2.7189264531476293477528869D-09 
/> u M ,, f 



^ V V 

18 15 17 



DOUBLE Z,Y,X 
READ 1, Z,Y,X 
1 FORMAT (D18.11,D15.0,D17.4) 

Iw OUTPUT 



The Iw specification converts decimal integer values in the output list to ASCII character 
form for output. The output quantity occupies w output record positions; it will appear 
^^ rigfht justified in the field w, as: 



~ 1 2 n 

ffj represents decimal digits (maximum 19) of the integer. When the integer is positive, 
the + sign is suppressed. 

^Vhen the field w is larger than required, the output quantity is right justified with blanks 
occupying excess positions to the left. When the field is too short, asterisks are inserted 
in the field. 

For example: 

J contains -3762 
K contains +4762937 
L contains +13 

WRITE (11,10) J,K,L 
10 FORMAT (18,110,15) 
Result: ^AAA-^376^/VAA 4762937, ^ AAA 13, 
8 10 5 
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Iw INPUT 



The Iw input specification converts the input field to a decimal integer. The field is w 
characters in length, and the corresponding list element must be a decimal integer quantity. 

Input field w consists of an integer subfield that contains only a plus or minus, through 9, 
or blank which is interpreted as zero. When a sign appears, it must precede the first 
digit in the field. The value is stored right justified in the specified variable. 



i^'' 



39^A-15AAl8AA7A3AlA4. 



2 3 



2 4 



READ (13,10) I,J,K,L,M,N 

10 FORMAT (13,17,12,13,12,14) 

Result: I contains 139 L contains 7 

J contains -1500 M contains 3 

K contains 18 N contains 104 

$w OUTPUT 



The $w output specification converts internal binary to ASCII hexadecimal integers. The 
output quantity occupies w output record positions and appears as: 

CC , • • • flC 

1 w 
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For example: 

Input Card '^^^ 



'^^' 






'f"' 
i^ 



C 



OC i represents hexadecimal digits (maximum sixteen). No sign appears; a negative hexa- ^^ 

decimal number is represented as it appears in storage in two's complement form. If w 
is greater than required, the niunber is ri^t justified. If w is too small, the rightmost (f^ 

hexadecimal digits in storage occupy the output field; the left portion of the word is lost. 



[1 



O 

o 





o 

$w INPUT 

F% The $w input specification provides a metiiod of entering liexadecimal quantities into 

storage. The input field w has a maximum of 16 hexadecimal digits. The string of 

O hexadecimal digits may be preceded by a sign; a negative sign causes the two's complement 

of the quantity to be stored. Blanks in the field are Interpreted as zeros. Only 
hexadecimal digits (0-9, A-F) may appear. 

o 
o 

; The Lw specification Is used to output logical values. The output field is w characters 

^;i. long, and the list item must be a logical element. A value of TRUE or FALSE In storage 

\J: causes w-1 blanks followed by a T or F to be outputted. 



o 



Lw OUTPUT 



For example: 

I, K, L are TRUE; J Is FALSE 

LOGICAL I,J,K,L 

PRINT 5, I,J,K,L 
5 FORMAT (4L3) 
Result: aaT aaF aaT aaT 

Lw INPUT 



o 

o 



CC . represents alphanumeric characters (maximum is eight characters). When w is 

©larger than required, the character string is right justified with blank fill to the left. 
When the field is too small, the leftmost characters appear in the output field; any other 
characters are lost. 
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This specification accepts logical quantities as list Items. The field Is considered true if 
the first nonblank character in the field Is T; otherwise, it is false. 

Aw OUTPUT 



With the Aw output specification, internal code is converted to external alphanumeric 
characters. 

*^ I » • • ^ w 



Aw INPUT 
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The Aw Input specification accepts up to eight 8-bit characters. A blank in the input field 
is converted to the 8-bit equivalent ASCII code for blanks (20), If w exceeds the number of 
characters for the storage word, only the rightmost characters are stored in the variable J^, 

defined in the I/O list. If w is less than the allowed number, the characters in the input ^J' 

field are stored left justified in the variable with blank fill to the right. 

Rw OUTPUT 

The Rw output specification is similar to the Aw specification for converting internal codes 

to external alphanumeric characters. The w output field is: ;^ 



'<.>' 



*1— *w 

<Ci represents alfdianumeric characters (maximum is eight characters). When w is larger 
than required to represent the characters, the character string is right justified with zero 
fill to the left. When the field is too small, the rightmost characters appear in the output 
field; any other characters are lost. 

Rw INPUT "^ 

The Rw input specification, like the Aw specification, accepts up to eight 8-bit characters. 

A blank in the input field is converted to the 8-bit equivalent ASCII code for blanks (20). ^^ 

If w exceeds the allowed number of characters for the storage word, only the rightmost '1^ 

characters are stored in the variable defined in the I/O list. If w is less than the allowed 

number, the characters in the input field are stored rig^t justified with binary zero fill to 

the left. 

C 



o 



c 



O 



o 
o 



nP SCALE FACTOR 

The D, E, and F conversions may be preceded by a scale factor: 
external number = internal number x 10 "»«-«'"* 

The scale factor applies to Fw.d on both input and output and to Ew.d and Dw.d on output 
only. A scaled specification is written as: 

nPDw.d 

nPEw.d 

nPFw.d 

n is a signed integer constant. 

Fw.d SCALING 







For scaled input, the number in the input field is multiplied by 10~»^ and stored. For 
example, if the input quantity 314.1592 is read under the specification 2PF8.4, the internal 
number is 314. 1592xl0"2 = 3.141592. 

For scaled output, the number in the output field is the internal number multiplied by 10*^. 
In the output representation, the decimal point is fixed; the number moves to the left or 
right depending on whether the scale factor is plus or minus. For example, the internal 
number 3.1415926536 may be represented on output under scaled F specifications as follows: 



Specification 

F13.6 

1PF13.6 

3PF13.6 

-1PF13.6 



Output Representation 

3.141593 

31.415927 

3141.592654 

.314159 
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Ew.d SCALING 



The scale factor has the effect of shifting the output number left n places while reducing 
the exponent by n. Using 3.1415926536, some output representations corresponding to 
scaled £ specifications are: 



Specification 


Output Representation 


£20.2 


.31E+01 


1PE20.2 


3. 14E+00 


2PE20.2 


31.42E-01 


3PE20.2 


314. 16E-02 


4P£20.2 


3141,59£-03 


5PE20.2 


31415. 93E-04 


-1PE20.2 


.03E+02 



o 
o 
o 

o 
o 
o 






,^'>, 

o 






SCALING RESTRICTIONS 

The scale factor is assumed to be zero if no other value has been given; however, once a 
value has been given, it will hold for all D, E, and F specifications following the scale 
factor within the same FORMAT statement. To nullify this effect in subsequent D, E, and 
F specifications, a zero scale factor, OP, must precede a D, E, or F specification. 
Scale factors which result in exponents that exceed ±38 may cause overflow conditions. 



■\^y 






EDITING SPECIFICATIONS 



Editing specifications define spacing between characters and lines, skip records, begin new 
records, and provide a method of adding headings and comments. 



C 
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SPACE (wX) 

The wX specification produces blanks in an output record or skips w characters of input 
quantities. 

Examples: 

1) Output spacing: 

A contains 7 
B contains 13.6 
C contains 1462.37 

INTEGER A 

WRITE (11,10) A,B,C 
10 FORMAT (I2,6X,F6.2,6X,E12.5) 
Result: a7aaaaaaa13.60aaaaaaa1.46237E+03 



6 



12 



2) Skipping on input: 
Input Card 



15.62 



$13.78 



COST 



15.97 



READ (K3,11) R.S.T 
11 FORMAT (F5.2,3X,F5.2,6X,F5.2) 

Result: R contains 15.62 

S contains 13.78 ^$ spaced over) 

T contains 15.97 (aCOSTa spaced over) 
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wH OUTPUT 



The wH output specification provides a method of iacluding a set of w 8-bit ASCII characters 
in the output record in the form of comments, titles, heading, and carriage control 
characters. 

An unsigned integer w specifies the number of characters to the right of the H to be 
Included in the output record. 

Examples: 



WRITE (17,20) 
20 FORMAT (28H BLANKS COUNT IN AN H FIELD.) 
Output record: a BLANKS a COUNT A IN A AN A H a FIELD. 
2) Mixed specifications: 
A contains 1.5 

WRITE (14,30) A 
30 FORMAT (6H LMAX=,F5.2) 
Output record: aLMAX = a 1.50 

wH INPUT 



O 
O 

o 

o 

o 
o 



1) No I/O list: '^'*' 






r ~^, 






With the H specification, a new heading is read into an existing H field. When the new ,^^ 

characters on an input record are read, the corresponding characters are placed into the ^4^^ 

format list designated in the I/O statement. A subsequent output statement puts the new 
characters in the output record. The field width, w, specifies the number of characters 
in the inpot field. 



O 






o 
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\J^ For example: 
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Input Card 



r- 



A THIS A IS A A A VARIABLE A HEADING 

27 cols. 
READ (K4,10) 



10 FORMAT P7HAAAAA ...aaaaa ) 

27 spaces 



WRITE (K5,10) 
Result: A THIS A IS A A A VARIABLE a HEADING 



NEW RECORD (/) 

A slash, sigoaliag the end of an ASCII record, may appear anywhere in the specifications 
list. It may be separated from other list elements by commas; consecutive slashes may 
appear. During output, the slash is used to start new records, cards, or lines. During 
input, a slash specifies the beginning of the next record. 

^^ Examples: 

1) WRITE (12,10) 



10 FORMAT (20X. 7HHEADING///6X, 5HINPUT, 19X, 6HOUTPUT) 
Output tecord: 

^^ aaaaaaaaaaaaaaaaaaaa HEADING line 1 

line 2 

^1 AAAAAA INPUTAAAA AAAAA A AAAAAAAAA OUTPUT line 4 

_^ Each line corresponds to an ASCII record. The second and third records are null 

^y and produce the line spacing illustrated. 

o 

14061100 A 8-19 



2) A contains -11.6 
B contains .325 
C contains 46.327 
O contains -14.261 

WRITE (11,11) A,B,C,D 
11 FORMAT (2E10.2/2F7.3) 

Result: a-. 116E+02AA. 325E+00 
A46. 327-14. 261 

WRITE (12,11) A,B,C,D 

11 FCOtMAT (2E10.2//2F7.3) 

Result: A-1.16E001AA3.25E-01 
/V46. 327-14- 261 



line 1 
line 2 



line 1 
Hne 2 



O 

o 
o 

o 
o 
o 






''AJ 



\_j^ 



3) AMAX(1) contains 3.62 
AMAX(2) contains -4.03 
AMAX(3) contains -9.78 

WRITE (11,15) (AMAX(I),I=1,3) 

15 FORMAT (8H ANSWERS,2(/),3F8.2) 

Result: a ANSWERS 

AAAA3.62AAA -4.03aaa-9.78 



line 1 
line 2 
line 3 






c 
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ft 

^u^ 4) Read a pair of cards: 

#\ DIMENSION ARRAY(16) 

READ 10, ARRAY 
^ 10 FORMAT (8F10.4) 

O Result: Two cards are read, both in the same format, to fill the 16 elements 

of ARRAY. 

#J DIMENSION A(10),NT(20) 

READ 11, A, NT 

11 FORMAT (10F8.2/20I4) 

© Result: Two cards are read; the first fills the 10 elements of A; the second fills 

the 20 elements of NT. 



o 



REPEATED SPECIFICATIONS 

Repetition of the field descriptors (except nH and nX) Is accomplished by using the repeat 

O count. If the I/O list warrants, the specified conversion will be interpreted repetitively 

up to the specified number of times. 

©Repetition of a group of field descriptors or field separators is accomplished by enclosing 
them within parentheses and optionally preceding the left parenthesis with an Integer 
constant, called the group repeat count, indicating the number of times to interpret the 

C enclosed grouping. If no group repeat count is specified, a group repeat count of one is 

assumed. This form of grouping is called a basic group. 

OA further grouping may be formed by enclosing field descriptors, field separators, or 
basic groups within parentheses. Again, a group repeat count may be specified. The 
parentheses enclosing the format specification are not considered as group delineating 
^ parentheses. MP-60 FORTRAN allows three inner levels of nesting. 

For example, if two quantities, K and L, are to be printed, the program could be written: 

o 
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WRITE (11,10) K,L 
10 FORMAT (12,12) 



Since the specifications for K and L are identical, the FCOIMAT statement may be written: 
10 FORMAT (212) 

When a group of format specifications repeats itself, a group repeat count may be used to 
simplify the statement. 

FORMAT (E15. 3, F6. 1, 14, 14, E15. 3, F6. 1, 14, 14) 

FORMAT (2(E15.3,F6.1,2I4)) 

VARIABLE FORMAT 



Format lists need not be supplied by FORMAT statements; instead, they can be placed in 
integer arrays. Placing format lists in arrays and referencing the arrays instead of the 
FORMAT statement permit the programmer to change, index, and specify formats at the 
time of execution. 

Format arrays are prepared by storing a format list, including left and right parentheses, 
as it would otherwise appear with a FORMAT statement. Variable specifications can be 
read in from cards, changed with assignment statements, or preset in labeled common with 
a DATA statement. 



O 

o 

o 
o 
o 






"\_J' 
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For example: 



Prepare an array for format listi 



1^ 



(E12.2,F8.2.I7.2E20.3,F9.3,I4) 

DIMENSION IVAR(8) 

READ (Kl,l) dVARO), 1=1,8) 
1 FORMAT (9A4) 



Result: IVAR(l) contains (E12 
IVAR(2) contains .2,F 
IVAR(3) contains 8.2, 
IVAR(4) contains 17,2 



IVAR<5) contains E20. 
IVAR(6) contains 3,F9 
IVAR(7) contains .3,1 
IVAR(8) contains 4)aa 






'4^ 



4^. 



,#'~>^ 
W 
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When using the specifications, reference the array: 

WRITE (12,IVAR) A,B,I,C,D,E, J 
Specifications can be changed with assignment statements: 

IVAR(4) = 4HAAA2 
This removes 17 from the format list, permitting: 

WRITE (12,IVAR) A,B,C,D,E,J 



FORMAT CONTROL 



Execution of a formatted READ or formatted U'RITE statement initiates format control. 
Each action of format control depends on information jointly provided by the next element 
of the I/O list, if one exists, and the next field descriptor obtained from the format 
specification. If there is an I/O list, at least one field descriptor other than nH or nX 
must exist. 

When a READ statement is executed under format control, one record is read when the 
format control is initiated, and thereafter additional records are read only as the format 
specification demands. 

When a WRITE statement is executed under format control, a record is written each time 
the format specification demands that a new record be started. Termination of format 
control causes writing of the current record. 

Except for the effects of repeat counts, the format specification is interpreted from left 
to rigjit. 



o 

^^^ To each I, F, E, D, $, A, R, or L basic descriptor interpreted in a format specification, 

^> there is one corresponding element specified by the I/O list. To each H or X basic 

descriptor there is no corresponding element specified by the I/O list, and the format 

©control communicates information directly with the record. Whenever a slash is 
encountered, the format specification demands that a new record start or the preceding 
record terminate. During a READ operation, any unprocessed characters of the current 
record will be slcipped at the time of termination of format control or when a slash is 
encountered. 



Whenever the format control encounters an I, F, E, D, $, A, R, or L basic descriptor 
in a format specification, it determines if there is a corresponding element specified by 
the I/O list. If there is such an element, it transmits appropriately converted information 
between the element and the record and then proceeds. If there is no corresponding 
element, the format control terminates. 
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If the format control proceeds to the last outer right parenthesis of the format specification, 
a test is made to determine if another list element is specified. If not, control terminates. 
However, if another list element is specified, the format control demands a new record 
start and control reverts to the group repeat specification terminated by the last preceding 
rigjit parenthesis, or if none exists, then to the first left parenthesis of the format 
specification. This action of itself has no effect on the scale factor. 

Examples of format control interaction with an I/O list are as follows: 

1) List longer than format specifications: 

DIMENSION NP(4) 

WRITE (6,10) NP,TMAX,PMAX,DRPD,G,C,P1,T1,H1,S1 

10 FORMAT (4I10/(4F10.2)) 



Result: 


101 


98 


121 


97 




1337.28 


540.68 


-.47 


53.70 




71.20 


123.00 


-823.23 


.00 




-.25 









2) List shorter than format specifications: 
WRITE (6,10) N1,N2,I,J,A,B 
10 FORMAT (4110/(4F10.2)) 



Result: 



100 
.23 



200 
100. 00 



10 



20 



CARRIAGE CONTROL 



The first character of a listable output record is used for printer carriage control and is 
not printed. Usually, this character is in H format in a FORMAT specification used to 
print or write on the standard output file. 



Control Character 



Action Before Print 



Action After Print 
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\.. J 



C 






o 



!''"> 



o 











U 


1 


Eject page 


No space 






(zero) 


Space two lines 


No space 




O 


+ 


No space 


No space 




- 


Space three lines 


No space 






(blank) 


Space one line 


No space 




o 


other 


Space one line 


No space 












o 
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INPUT/OUTPUT STATEMENTS 



I/O statements control the transfer of information between the storage unit and an external 
device. 

In the I/O control statements: 

i Indicates the unit number and must be a simple integer variable or an 

integer constant. 

n Identifies the format list and is either a FORMAT statement number or the 

name of the array containing the format list. Binary and buffered data 
transmission do not require n. 

list Indicates the variables for input or output. 

I/O LISTS 



The list portion of an I/O control statement indicates the data elements and the order of 
^\ transmission from left to right. Elements may be variable names, array names, array 

^^ elements, or DO-implying segments. If ASCII transmission is indicated, the type of each 

element must correspond to an appropriate conversion specification in the FORMAT 
#% statement. 

DO-IMPLYING SEGMENTS 

■ Ml A DO-implying segment consists of one or more list element and indexing values. 

Dimensioned arrays may appear in the list with values specified for the range of the 
^^ subscripts in an implied DO loop. 

o 

The general form for a DO-implying segment is: 
(...(aist, r^=m^,m^,m^), r2^\'^2'S^ ''i'^l'^2'^3^ 



'"\'\*"''\ Unsigned integer constants or predefined positive integer variables. 
When the third indexing parameter (m3,n3, .. .,Z3) is omitted, a 
value of one is used for incrementing. 

y 

1 Index variables which must be simple integer variables. 
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o 

A list element may be a simple variable, a dimensioned variable, or an array name. \J 

The first index variable ( Xj^) defined in the list is incremented first. Data named in the 4-^ 

implied DO loops is transmitted by increments of m^ until mg is exceeded. (When m^ is \3 

omitted, the increment value is 1.) When the first index variable reaches m2, it Is reset; 
the next index variable to the right (X2) ^s then incremented, and the process is repeated 
until the last index variable ( X^) has been incremented. 



o 

o 

-if — V, 

'^1* ^2* ^3 ^^y represent I, J, K; Y^^ Y^ T^ {^ 



The general form for arrays is: 

(((A(I.J.K). r^=m^,m^,m^), V^'''2'V' '^3=h'^2'h'^ 

I,J, K Subscripts of A; must be in standard form 



A DO-implying segment for an array may replace a nest of DO loops. 

DO 10 Xg = P^.Pg.Pg 

DO 10 Xg = n^.n^.Ug 
DO 10 Xj = m^.m^.mg 



Transmit list elements by an input or output statement 



10 CONTINUE 



The limit to which implied DO loops may be nested is determined by the length of the 
statement. 
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o 



An implied DO loop may also be used to transmit a simple variable, a sequence of 

variables, or an array a number of times. In the segment ((A),K=1,10), A will be ^fy^ 

transmitted 10 times. \y 



o 






o 

fl 



o 
o 

o 

o 



c 



o 



o 







Examples: 

1) Example of a DO-implylng segment nested five deep: 

(((((A(I,J,K), B(M), C(N), N=l,10.1), M=l,5), K=K1,K2,K3), J=l,60,15), 1=1,10,1) 

During execution, each subscript (index variable) is set to the initial index value: 
1=1, J=l, K=K1, M=l, N=l. The segment replaces a DO loop nest: 

DO 15 1=1,10,1 

DO 15 J=l,60,15 

DO 15 K=K1,K2,K3 

DO 15 M=l,5 

DO 15 N=l,10,l 

READ (61,1) A(I,J,K),B(M),C(N) 
1 FORMAT (...) 



15 CONTINUE 
^J) 2) Elements of A, a three-by-three matrix, will be transmitted by columns using: 

((A (I, J), 1=1,3), J=l,3) 
3) Elements of A will be transmitted by rows using: 
((A(1,J), J=l,3), 1=1,3) 
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4) In the list segment (B(J), L, (A(I, L), 1=1, L), J=3,9,3), L must have a value 

before it can be used as an index variable. The segment replaces a DO loop nest: 

DO 11 J=3,9,3 



READ (61,1) B(J),L 

1 FORMAT (...) 

DO 11 1=1, L 

READ (61,2) A(I,L) 

2 FORMAT (...) 

• 
m 
m 

11 CONTINUE 
5) CAT, DOG, and RAT will each be transmitted 10 times with the segment: 
(CAT, DOG, RAT, 1=1,10) 



o 
o 

o 

o 
o 

o 






%^ 



c 
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o 






TRANSMISSION OF ARRAYS 



In an I/O list, an array name without subscripts causes the entire array to be transmitted. 
#\ For example: 

DIMENSION SPECS (7,5,3) 

o 

_ • 

^: WRITE (20) SPECS 

OThis example transmits the array SPECS as if under control of the following implied 
DO loop or nested DO loops. 



O I/O UNITS 



...,(((SPECS(I,J,K),I=1,7),J=1,5),K=1,3),... 
DO 10 K=l,3 
DO 10 J=l,5 
DO 10 1=1,7 

WRITE (20) SPECS (I.J.K) 
10 CONTINUE 



In FORTRAN programming, the user performs his I/O in terms of integer unit numbers. 
This unit number may be either an integer constant or a simple integer variable. 

PARTIAL RECORDS 

Information processed by the I/O statements is divided into records; each time an I/O 
Mk statement is executed, a new record is processed. Thus, It is not possible to read or 

^'^ write several parts of a single record with more than one statement. 

o 

o 
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o 
o 
o 

o 

The form of the print record statement Is: 

PRINT n, list O 



OUTPUT STATEMENTS 

PRINT RECORD 



For physical records in the logical record, the first word of all records except the k 
contains zero; the first word of the k*"" record contains the int^er k. If there is only 
one physical record, the first word contains the integer 1. 






'■O' 



Transfers information from the storage locations in the list to the standard output unit. 
This information is transferred as line printer images, 136 characters or less per line, 
in accordance with format list n. The maximum record length is 136 characters; the first 
character of every record is used for carriage control on the printer and is not printed. 

For example: 

PRINT 16, A 

16 FORMAT (lOH A RESULT A = A ,F7.3) 

WRITE BINARY RECORD 

The form of the write binary record statement is: 

WRITE (i) list 

Transfers binary information from the storage locations given by the list identifiers to the ^\^ 

specified unit i. If the list is omitted, the statement acts as a no-operation. 

The number of elements in the list determines the number of physical records to be written \j! 

on the unit. A physical record contains 118 words; the first word is a count word, and the 
remaining 117 words contain the transmitted data. The physical records written by one ^>, 

write binary record statement constitute one logical record. Physical records are blocked \^' 

in 480-word blocks (to mass storage devices only). 



,^^ 
'^^ 



For example: 

DIMENSION A(260), B(4) (J 

WRITE (10) A, B 

DO 5 1=1, 10 (J 

5 WRITE (6) AMAX(I), (M(I,J), J=l,5) 
9-6 14061100 A %J 



o 



o 

C 



o 



c 

o 

o 
o 



WRITE ASCII RECORD 

The form of the write ASCII record statement is: 
WRITE (i,n) list 

Transfers information from storage locations given by identifiers in the list to unit i, 
according to the format list n. 

A logical record containing up to 136 characters is writtem on unit i as ASCH characters. 
Each logical record is one physical record. The number of elements in the I/O list and 
the format list n determines the number of records to be written on a unit. If the logical 
record is less than 136 characters, the remainder of the record is filled with blanks. 
Records are blocked in 480-word blocks (to mass storage devices only). 

When the contents of the output file is to be printed, the first character of a record is a 
printer control character that will not be printed. If the programmer fails to aUow for a 
printer control character, the first character of each output record is lost on the printed 
listing. 
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o 
o 

INPUT STATEMENTS O 

READ CARD RECORD O 



The form of the read card record statement is: 
READ n, list 
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Reads one or more card images from the standard input unit, converts the information 
from left to right in accordance with format list n, and stores the converted data in the <> 

locations named in the I/O list. The images are in the form of 80-column Hollerith cards ''^' 

read from the standard input unit. 

For example: '*^ 



'"\_j^ 



READ 10, A,B,C 
10 FORMAT (3F10.4) 

READ BINARY RECORD 

The form of the read binary record statement is: 

READ (i) list "^^ 

Transfers one logical record of information from unit i to storage locations named by the (1 

list identifiers. 

1 

The record being read must have been written in binary mode by a WRITE (i) list statement. C> 
The word count generated by the write statement is not transmitted to the input area. The 

number of words in the list must be equal to or less than the number of words transmitted ^^ 

in the corresponding write statement. (f - 



o 
o 

CI 



o 

o 

o 



o 



c 



When the list is omitted, the binary read statement spaces over one logical record. 
For example: 

DIMENSION C(264),BMAX(10),M2(10,5),A(100,50) 

READ (10) C 



DO 7 1=1,10 
#\ 7 READ (6) BMAX(I), (M2(I,J),J=1,5) 

READ (5) (skip one logical record on unit 5) 

READ (6) ((A (I, J), 1=1, 100), J=l, 50) 



READ ASCII RECORD 



The form of the read ASCII record statement is: 

i^ READ (i,n) list 

_^ Transfers one logical record of Information from unit i to storage locations specified in the 

^^- list, according to format list n. 

OThe number of words in the list and the format specifications must conform to the record 
structure on the input unit (up to 136 characters). The record being read must have been 
written in ASCII mode. 

o 



Examples: 

DIMENSION MB(1) 



READ (10,11) X,Y,Z 

11 FORMAT (3F10.6) 

o 

^ READ (2, MB) (Z(K),K=1,8) 

MB(1) contains (F7.2) a a 
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BUFFER STATEMENTS 



The differences between the buffer statements and the read/write statements are: 



Where: 

i Unit number; an integer constant or variable 1 < i < 60 
p Mode; an integer constant or variable 

Mode is ASCII 

1 Mode is binary 

a First variable in the block to be transmitted; a variable, array name, or array 
element reference (must not be type logical) 

b Last variable in the block to be transmitted; a variable, array name, or array 
element reference (must not be type logical) 



o 
o 

G 

O 

o 



o 



1) In a buffer statement, mode must be specified (ASCII or binary). £\ 

2) The buffer statements are not associated with I/O lists or formatted lists. Data 
transmission occurs to or from an area of storage. ,ir> 

3) Only one physical record is transferred for each buffer request (for mass storage, 
a block is considered a record). 

4) A buffer statement initiates data transmission and then returns control to the ^*-*' 
program, permitting it to perform other tasks while data transmission is in 
progress. Before the buffered data is used, the status of the bu£Eer operation 
must be checked (by calling the IFUNIT function). 

5) Buffer I/O is not allowed on unit numbers 61, 62, and 63. ^-^ 

6) Logical arrays cannot be transmitted with a buffer statement. ^-^ 



BUFFER IN 

The form of the BUFFER IN statement is: 

^^ 
BUFFER IN (i,p) (a,b) ^ 






O 

c 



This statement transmits one physical record of information in mode p from unit i to /^ 

storage locations a through b. If the file being read was written by an ASCII write state- ^^ 
ment, only one physical record of 136 characters is read. Provision must be made for the 

count word buffered in with the data that was written with binary write statements. ^~\ 
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When BUFFER IN requests transmission of more words than are on the record, the words 
are stored from a to k, where k is less than b and contains the last word on the record. 
If the record is larger than the buffer size, the remainder of the record is ignorc-i. 

The first word address must be less than or equal to the last word address or thr- job is 
terminated. 

For example: 

DIMENSION TEMP(50) 



fj' BUFFER IN (NT,0)(TEMP,TEMP(25)) 

BUFFER IN (10,0)(TEMP(26), TEMP(50)) 

o 

BUFFER OUT 

The form of the BUFFER OUT statement is: 

BUFFER OUT (i,p) (a,b) 
Where: 

i Unit number; an integer constant or variable 1< i < 60 

p Mode; an integer constant or variable 



Mode is ASCII 

1 Mode is binary 

a First variable in the block to be transmitted; a variable, array name, or 
array element reference (must not be type logical) 

b Last variable in the block to be transmitted; a variable, array name, or 
array element reference (must not be type logical) 

This statement transmits information from storage locations a through b and writes one 
physical record on unit i in mode p. The physical record contains all the Y'ords from 
a to b. 

The first word address must be less than or equal to the last word address or the job is 
terminated. 
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Because only one physical record is transmitted, the block size for a mass storage file 
must be large enou^ to contain the largest data block buffered out. 

For example: 

DIMENSION A (100) 



FILE CONTROL STATEMENTS 



Rewinds magnetic tape file i to the load point. When the tape is already rewound, the 
statement acts as a do-nothing statement. 
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BUFFER OUT (10,1)(A(1),A(100)) ,<> 



o 



The auxiliary I/O statements REWIND, BACKSPACE, and ENDFILE may not reference ^x 

unit numbers 61, 62, and 63. _ '*.-»' 

REWIND 

The form of the REWIND statement is: 
REWIND i 






A REWIND statement on a mass storage file is interpreted as a locate to block one. ^^ 

BACKSPACE *^ 

o 

The form of the BACKSPACE statement is: 
BACKSPACE i 



f-^ 



Backspaces magnetic tape file i one physical block. When the tape is already at the load 

point (rewound), BACKSPACE acts as a do-nothing statement. i^^ 

A BACKSPACE statement on a mass storage file is interpreted as a locate to the beginning ^ 

of the previous block. ^jp' 



O 

o 



o 



e 



ENDFILE 

■Rie form of the ENDFILE statement is: 
ENDFILE I 

Writes an end-of-file on magnetic tape or mass storage file i. The file is positioned at 
the end-of-file upon completion of the request. 

INTERNAL TRANSMISSION STATEMENTS 

The ENCODE and DECODE statements are comparable to ASCII read/write statements 
except that no peripheral equipment is used in the data transfer. Information i? 
transferred under format specifications from one area of storage to another. 

ENCODE 

The form of the ENCODE statement is: 

ENCODE (c,n,v) list 

c is an integer constant or variable describing the number of characters per record in 
storage; n is the statement label of a FORMAT statement or the name of an integer array 
containing the format specifications; v is a variable, array element, or array name at 
which the first record is to start; and list is the list containing the data to be converted. 
The list has the same format as an I/O list. 
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The execution of this statement converts the information in the list according to the 
FORMAT statement and stores it in records starting at v, with c ASCII characters per 
record. If the format list attempts to convert more than c characters per record, a 
diagnostic is given. If the number of characters converted by the format list is less 
than c, the remainder of the record is filled with blanks. 

Examples: 



object time. Assume that in the statement FORMAT ^A8, Im) the programmer 
wishes to specify m at some point in the program, subject to the restriction 
2 S m S 9. The following program permits m to vary, 

PROGRAM VARY 

INTEGER FMT(1) 



IF (M .LT. 10 .AND. M .GT. 1) GO TO 1 
STOP 
1 ENCODE (8,100,FMT) M 
100 FORMAT (6H(2A8,I, II, IH)) 
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1) ENCODE may be used to calculate a field definition in a format specification at (f^:, 



^ 

'1^^\ 
W 



'vy 






PRINT FMT, A, B, J v^y 












a 



o 
o 

^1 2) ENCODE may be used to convert internal integer data to ASCII codes and 

suppress printing of zero data. 

Kj program convert 

^^ dimension ia(100) 

m 

O DO 20 1=1, 100 






IF (IA(I) .EQ. 0) GO TO 10 
ENCODE (4,100,IA(I)) IA(I) 

100 FORMAT (A4) 
GO TO 20 

10 IA(I) = 4H 
20 CONTINUE 

PRINT 101, lA 

101 FORMAT (10A12) 
^ END 

C DECODE 

o 

^*^ The form of the DECODE statement is: 

^% DECODE (c.n.v) list 

-^ c is an integer constant or variable indicating the number of characters per record in 

^1 storage; n is the statement label of a FORMAT statement or the name of an integer array 

containing format specification; v is a variable, array element, or array name at which 
j^ the first record starts; and list is the list in which converted information is stored. The 

^^ list has the same format as an I/O list. 

O 
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The executioD of this statement converts and edits the information from records, starting 
at V and consistii^ of c ASCII characters each, and stores it in the variables specified by 
the list. When the FORMAT statement specifies more than c characters per record, a 
diagnostic is given. When fewer than c characters per record are specified, the remainder 
of the record is Ignored. 

For example: 



101 FORMAT (12,1914) 
GO TO 5 

20 DECODE (78, 102, BUFFER) DATA 

102 FORMAT (F2.0,19F4.0) 
GO TO 5 

30 DECODE (78, 103, BUFFER) LDATA 

103 FORMAT (L2,19L4) 
GO TO 5 

40 STOP 
E^fD 

9-16 14061100 A 



o 
o 

c 

c 



DECODE may be used to read an input card under one of three different formats jp^ 

depending on the code punched in column one. Cards are read until -1 appears in "^ 

column one. 

PROGRAM READIN 

DIMENSION BUFFER(IO), DATA(20), 1DATA(20), LDATA(20) 

EQUIVALENCE (DATA(l), IDATA(l), LDATA(l)) 

5 READ 100, KEY, BUFFER 

100 FORMAT (I2,9A8,A6) 

IF (KEY .EQ. -1) GO TO 40 

GO TO (10, 20, 30), KEY 

10 DECODE (78, 101, BUFFER) IDATA i^ 









.r-^-, 
'\^' 






G 



^./ 



n 



o 

O STATUS CHECKING ROUTINE 

%J The status checking routine provides extra capabilities in the I/O phase of FORTRAN 

programming. 

o 



o 



I/O COMPLETE CHECK 

Function: IFUNIT(i) 

The I/O complete function is referenced with a unit number as its only parameter. It 
returns an integer result reflecting the status of the previous buffer operation on that unit. 
The result is not returned until the buffer operation is complete. The possible results are: 



1 I/O operation is complete with no errors. 

2 End-of-file mark was encountered 

C3 End of allocated area was detected during last operation 
4 End of device was detected on the last operation 
5 Irrecoverable I/O error was detected on the last operation 
^\, An example of a reference to the function is: 



I=IFUNIT(3) 

GO TO (10, 20, 30, 40, 50), I 
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PROGRAM OPERATION 10 



O 

o 
o 

o — ^ — 

o 

The MP-60 FORTRAN compiler (FTN-60) is called into execution via an MPX library task 
control card. Parameters on this control card define compile options and are passed to 
\J) the compiler through the PARM area assigned to the job. 

A description of the FORTRAN control card and other information needed to compile and 
\j) execute MP-60 FORTRAN programs under MPX are contained in this section. For 

detailed descriptions of control cards, both necessary and optional, refer to the MP-60 
Reference Manual, Control Data publication No. 14306500. 

-. FORTRAN CONTROL CARD 

The MPX task name control card that causes MP-60 FORTRAN to be called, loaded, and 
executed appears as follows: 



r 



*FTN (field, , field^, .... field^) 



All fields are optional and may appear in any order on the card. Blanks are ignored, and 
illegal characters are assumed to be commas. Fields are of the following formats: 

Parameter = logical unit. 

Parameter, 



o 

Parameter can be one of the following letters: I,L,R,A,X, or P (refer to Table 10-1). 
^^ Refer to the MPX/RT Reference Manual, Control Data publication No. I40i52300, for 

^'^ legal logical unit (LU) numbers. 

^% Sample *FTN card: 

j *FTN (L,A,X,P) 

o 
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TABLE 10-1. PARAMETER/LU 



Parameter 


No LU 


1 LU 


No Field Present 


I 


Source input 


Source input 


Source input from 




from LU 63, 


from named LU. 


LU 63. 




standard input 


If LU is other 






unit. 


than 63, user 
must ensure that 
file is OPEN to 
job. 




L 


Source language 


Source language 


No source listing 




listing and 


listing written 


provided. 




diagnostics 


on specified LU. 






appear on LU 








62, standard 








output unit. 






R 


Cross-reference 


Cross-reference 


No cross-reference 




list written on 


list written on 


listing provided. 




LU 62. 


specified LU. 
Note: it is 
recommended that 
cross reference 
unit be same as 
source listing 
unit. 




A 


Assembly language 


Assembly language 


No listing of assembly 




listing written on 


listing written on 


language produced. 




LU 62. 


specified LU. 




X 


Relocatable binary 


Relocatable binary 


No relocatable binary 




output written on 


card images of 


file written. 




LU 57, standard 


compiled programs 






load and go file. 


written on named 
LU. 




P 


Relocatable binary 


Relocatable binary 


No binary deck 




output written on 


card images of 


provided. 




LU 61, standard 


compiled programs 






punch unit. 


written on named 
LU. 
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o 

o 

Source language and assembly listings are written on the standard output unit, LU 62. 

©The punchable output is written on the standard punch unit, LU 61, and automatically 
punched. Executable output is written on the standard load and go file, LU 57. Input 
source was read from the standard input unit, LU 63. 

o 



o 

G 

o 



o 



r 



*FTN (I = 10, L, R, X = 11 



Source input is from LU 10. Source output listii^ with cross-reference listing is on LU 
62. Executable binary is written on LU 11. 

CONTROL CARD NOTES 

For a detailed description of all MPX control cards, refer to the MPX/RT Reference 
Manual (Section 2). Information relevant to FORTRAN is, however, contained in this 
section. 

Core memory assigned to a job should be requested by the user via the MPX schedule 
statement (*SCHED). A minimum of 9 pages is needed to compile small FORTRAN 
programs. Larger programs require more memory, up to a maximum of 16 pages. When 
executing FORTRAN-compiled programs containir^ ASCII input or output statements, memory 
must be scheduled for I/O buffers (a 480-word buffer for each unique logical unit). 

The FORTRAN compiler uses system scratch files 1 and 2 (LUs 59 and 60) as intermediate 
files. The user should reposition these files if they are to be used later in the job. 

A FINIS card is used to notify the compiler that there are no more programs to be 
compiled. The word FINIS must b^in in column 10. 

1 10 



FINIS 



CALLING SEQUENCES 

Programs written in MP-60 assembly language (COMPASS) may call or be called by 
programs compiled by MP-60 FORTRAN. Calling sequence conventions have been 
established for this purpose. 
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The calling sequence compiled for an external reference of the form 

CALL NAME (p, , p. . . . , p ) is: 
X is n 



RTJ 
UJP 
VFD 
VFD 



NAME 
*+(n+l) 
16/0,16/Pj 
16/0, 16/p- 



VFD 
Where: 

NAME 



p.* 



16/0, 16/p 



Entry point of the program unit being referenced 

1.1. 

Address of the i parameter 



The main program, the set of FORTRAN statements bounded by a PROGRAM statement and 
an END statement, is entered initially by MPX. If the main program contains either 
ASCII I/O statements or STOP statements, a FORTRAN library routine with entry points 
Q8QENTRY and Q8QEXITS is provided to interface with MPX. The initialization performed 
by the main program includes clearing register XI, which is needed for double precision 
arithmetic operations and tests. 

Subroutines, entered by the CALL statement or from COMPASS programs, use all registers. 
Functions save and restore all registers except RA-RF (registers 26 through 31) and return 
the function value in register RE (or RE-RF if the function is a type double precision). 
Both subroutines and function require register X to be zero upon entrance. Refer to 
Section 7 for further explanation of subprogram relationships. 



o 
o 

o 















*Note that If p. is type character, address field would be 14/0, 18/p. . 
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SAMPLE DECK STRUCTURES 



UJi Compile only from standard input: 

^ *JOB(ID=RLD,AC=645) 

o 

*SCHED(TL=30, CM=10) 
O *FTN(L,R) 

[FORTRAN source deck] 
END 

FINIS 
*EOJ 
Compile and execute: 

C*JOBaD=JJG,AC=645) 
*SCHED(TL=200, CM=12) 
*FTN(L,R,X,A) 

[FORTRAN source deck] 
END 

FINIS 
♦LOAD 
*RUN 

[DATA] 
*EOJ 
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Object time execution with PCC: 
*JOB(LD=RLD,AC=645) 
*SCHED(TL=200, CM=14) 
*EQUIP(01=DP> 
*TASK(ID=JJG, PCC=01) 

[FORTRAN binary deck] 
♦RUN %J 

[DATA] ^-> 

*EOJ 
FORTRAN program with COMPASS subprogram: ''\^' 

*JOB(ID=RLD,AC=645) 
*SCHED(TL=200,CM=12,MT=1) 

*EQUIP(01=MT) vy 

*FTN(X=01) (Note: load and go to magnetic tape 01) 

[FORTRAN source deck] 

END 

FINIS (Note: FINIS starts in column 10) 

*REWIND(01) 
*CMP(L,X) 

[COMPASS source deck] i'\ 

END 

FINIS (Note: FINIS starts In column 10) ^^ 

*REWIND(57) O 



o 



c 



o 



o 



o 



* 



* 



LOAD(01,57) 
RUN 

[DATA] 
EOJ 



o 



o 

o 
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LIBRARY ROUTINES 



Library Function 


Definition 


ABS(a) 


|a| (absolute value) 


AINT(a) 


Tiuncation 


ALOG(a) 


logg(a) 


ALOG10(a) 


logjo(a) 


AMAXOCa^.a^,...) 


maxCa^.a^,...) 


AMAXlCa^.a^,...) 


max(aj^,a2,...) 


AMIN0(a^,a2,...) 


minCaj.ag,...) 


AMmiCa^.a^,...) 


min(a^,a2,...) 


AMODCa^.a^) 


aj(mod a^)* 


AND(aj,a2) 


^'^^2 


ATAN(a) 


arctan(a) 


ATAN2(ai,a2) 


arctan (a /a ) 


COS(a) 


cos (a) 


DABS(a) 


|a| 


DATAN(a) 


arctan (a) 


DATAN2(aj,a2) 


arctan(a /a ) 



Type of 
Argument 


Tjpe of 
Result 


Real 


Real 


Real 


Real 


Real 


Real 


Real 


Real 


Int^er 


Real 


Real 


Real 


Integer 


Real 


Real 


Real 


Real 


Real 


Integer 


Integer 


Real 


Real 


Real 


Real 


Real 


Real 


Double 


Double 


Double 


Double 


Double 


Double 
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Library Function 



DBLE(a) 



DCOS(a) 

DDMCa^.a^) 

DEXP(a) 

DIMCa^.a^) 

DINT (a) 

DFLOAT(a) 

DLOG(a) 

DLOGlO(a) 

DMAXl(a ,a ,...) 

DMINl(a ,a , ...) 

DMODCa^.a^) 

DSIGNCa^.a^) 

DSIN(a) 

DSQRT(a) 

ENABLE% 



EXP (a) 
FDATE(a) 

FLOAT (a) 



Definition 



Express single precision argument 
in double precision form 

cos(a) 



a^-min(aj,a2) 



a^-min(a^,a2) 

Sign of a times largest integer < | a 

Convert from integer to double 

log^(a) 

log^(j(a) 

max(aj^, a^, . . . ) 

min (a^.a^,...) 

a^(mod a^)* 

Sign of ag times | a^j 

sin(a) 

Initialize fault indicators and enable 
arithmetic class interrupts 

a 

e 

Subroutine to obtain system data 
Conversion from integer to real 



Type of 
Argument 

Real 



Type of 
Result 

Double 



Double 


Double 


Double 


Double 


Double 


Double 


Real 


Real 


Real 


Double 


Integer 


Double 


Double 


Double 


Double 


Double 


Double 


Double 


Double 


Double 


Double 


Double 


Double 


Double 


Double 


Double 


Double 


Double 


Not 
Applicable 


Integer 


Real 


Real 


Any Type 


Ascn 

(2 words) 



o 

o 
o 

o 
o 

o 









-Mi,>' 



■>'*^/ 






/T"- 

^.^ 



c 
o 



Integer 



Real 



A-2 
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o 

o 
o 



o 
o 



Library Function 

IABS(a) 

IDIM(a^,a2) 

FTIME(a) 

IARCHK(I) 

IDINT(a) 
IDVCHK(I) 

IFIX(a) 
IFNCHK(I) 

INT (a) 
IOVERFL(I) 



ISHFTCa^.a^) 



ISIGN(a^,a2) 
MAXO(a ,a ,...) 
MAXKa^.a^,...) 



Definition 



|a| 



a^-minCa^.a^) 



Subroutine to obtain system time 



Determine if arithmetic overflow has 
occurred. Returns 1 if there is a 
fault, 2 if there is no fault 

Sign of a times largest integer 
<|a| 

Determine if divide fault has occurred. 
Returns 1 if there is a fault, 2 if 
there is no fault 

Conversion from real to Int^er 

Determine if function fault has 
occurred. Returns 1 if there is a 
fault, 2 if there is no fault 

Sign of a times largest integer 

Determine if exponent overflow has 
occurred. Returns 1 if there is a 
fault, 2 if there is no fault 

Value is first argument shifted by 
second. If second argument is 
negative, shift is right; if positive, 
shift is left circular 



Sign of a times I a^ I 
max (si^,&^,..,) 

"**^V*2"**^ 



Type of 
Argument 


Type of 
Result 


Integer 


Integer 


Integer 


Integer 


Any Type 


ASCn 
(2 words) 


Integer 
variable 


Integer 



Double 



Integer 
variable 



Real 

Integer 
variable 



Real 



Integer 
variable 



Any Type 



Integer 
Integer 

Integer 
Integer 

Integer 
Integer 

Integer 



Integer 


Integer 


Integer 


Integer 


Real 


Integer 
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Library Function 


Definition 


RHNOCa^.a^,.. 


.) 


min (a^.a^, ...) 


MINKa^.a^,.. 


.) 


min(a^, ag, . • • ) 


MODCa^.a^) 




a J (mod a^)* 


NOT (a) 




a 


OR(a^,a2) 




^Va2 


SECOND(a) 




System time in seconds 


SIGNCa^.a^) 




Sign of a times a 


SIN (a) 




sin(a) 


SNGL(a) 




Obtain most significant pa 
double precision argument 


SQRT(a)/SQRTF(a) 


yr 


TAN(a) 




tan(a) 


TANH(a) 




tanli(a) 


X0R(a^.a2) 




\^S 



*a (mod a ) is defined as a 



Type of 


Type of 


Argument 


Result 


Integer 


Integer 


Real 


Integer 


Integer 


Integer 


Int,eger 


Integer 


Integer 


Integer 


Any Type 


Real 


Real 


Real 


Real 


Real 


Double 


Real 


Real 


Real 


Real 


Real 


Real 


Real 


Integer 


Integer 



o 
o 

o 

o 
o 

o 



-*..>' 



'■'V,...''' 



a , where pC] is the integer whose magnitude does 



o 



-1' 2' *" " 1 L 2 

not exceed the magnitude of X and whose sign is the same as X. 



o 
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o 
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o 

o 

o 



FORTRAN STANDARD OUTPUT B 



MP-60 FORTRAN DIAGNOSTIC RESULTS 

The diagnostic results consist of null statement numbers, error messages, and program 
and common lengths. Null statements are statement labels that are not referenced in 
either assigned GO TO, format, or DO statements. Error messages are one of the 
following tjTjes: I - informative, E - fatal to execution, or F - fatal to compilation. The 
program length is given in decimal and does not include any associated object routines. 
All data and scratch common blocks are listed with their decimal lengths. 

MP-60 FORTRAN CROSS-REFERENCE TABLE (SYMBOLS) 

The cross-reference table contains a sorted listing of all symbols and their references. 
The relative program address, type, and line number of each appearance are printed for 
each symbol. The relative address is prefaced by a character representing the relocation 
type: C - common, P - program, X - external. In addition, for character or logical 
symbol types, the character or bit position is included. The type may be integer, real, 
double precision, character, or logical. All references refer to the line number on which 
the symbol appears. Multiple references per line are also listed. The character in 
parentheses indicates the type of reference: 

• C Symbol appears in a common statement 

• D Symbol appears in a dimension statement 

• E Symbol appears in an equivalence statement 

• O Symbol is used as operand 

• S Symbol appears on lefthand side of replacemait statement 

• P Symbol appears in parameter list 

• U Symbol represents LU number 

• F Sjnmbol represents format array 



14061100 A 

B-1 



o 

o 
o 

MP-60 FORTRAN CROSS-REFERENCE TABLE (LABELS) Q 



The cross reference table also contains a sorted listing of. all statement labels. The 
relative program address and all references are given for each label. In addition, labels 
representing formats are flawed as such. All references refer to the line number where 
the label appears. The character in parentheses refers to the type of reference: 

• L Label is defined at this line 

• A Label appears in ASSIGN statement 



o 
o 



• J Label appears in GO TO or IF statement r'^^ 

• F Label is referenced as format 

• D Label represents end of DO loop '''^ 



/f^, 
^i^.' 



'%_>-' 



o 

o 



o 
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o 





FORTRAN DIAGNOSTICS 



DIAGNOSTIC CLASSIFICATION AND ERROR MESSAGE CONVENTION 



o 
o 

o 

FORTRAN diagnostics are listed at the end of the source listing. Each diagnostic is 
^r% classified by the code letter in the first column of the diagnostic. The code letters are 

^*^ as follows: 

■ T I Informative diagnostic 

E Fatal to execution 

F Fatal to compilation 

(^ The error messages use the following conventions: 

$0 Line number 

$1 Integer number 

\J^ $2 Integer number 

$3 Single character 

$4 Single character 

$5 Symbol 

$6 Symbol 

$7 Label 

$8 Start next line 
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MISCELLANEOUS ERROR MESSAGES 

1) $0 TABLE OVEEFLOW, CROSS REFERENCE TABLE DISCARDED 

2) $0 MANAGED MLaIORY TABLES OVERFLOWED ($1) 

Remarks: The integer number ($1) is the absolute address of the compiler 

subroutine that increased the table size. This number is intended 
mainly for compiler checkout. 

3) $0 NO HEADER CARD 
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o 
o 

o 
o 






^.... 



%J 



Remarks: Every FORTRAN compilation must begin with a PROGRAM, SUB- 
ROUTINE, or FUNCTION header card. The statement PROGRAM 
% JOB% is provided if the header card is missing. f^ 

4) $0 UNRECOGNIZABLE STATEMENT 

5) $0 CARD OUT OF ORDER '*^' 
Remarks: The required order of statements is: 

Class 1: HEADER STATEMENT 

PROGRAM 

SUBROUTINE 

FUNCTION 
Class 2: DECLARATIVE STATEMENTS 

DIMENSION 

COMMON 

TYPE 

EXTERNAL 
Class 3: EQUIVALENCE STATEMENTS 
Class 4: DATA STATEMENTS 
Class 5: EXECUTABLE STATEMENTS 
Class 6: END 



o 



o 



■> 



o 



o 

o 
o 

o 



6) $0 R-LIST TABLE OVERFLOWED 

Remarks: The R-list table is a fixed length table; statement could be shortened. 

7) $0 THIS STATEMENT CANNOT HAVE A LABEL 

8) LABEL $7 IS UNDEFINED 

9) VARIABLE $5 DID NOT START ON A CHARACTER BOUNDARY 

Remarks: The variable $5 must be equivalenced to a logical variable that 
forced it off a character boundary. 

10) VARL\BLE $5 DID NOT START ON A WORD BOUNDARY 



£%^ Remarks: The variable $5 must be equivalenced to a character or logical 

^^ variable that forced it off a word boundary. 

11) VARIABLE $5 ATTEMPTS EXTEND ORIGIN OF COMMON 

12) ARRAY $6 HAS TOO MANY ELEMENTS 

Remarks: An array may have a maximum of 65K elements. A double 
precision array may have a maximum of 32K elements. 

13) $0 ILLEGAL CHARACTER 
ILLEGAL SYMBOL NAME 
SYMBOL NAME EXCEEDS 8 CHARACTERS 
UNBALANCED PARENTHESIS 

ASCn CONSTANT CONTAINS MORE THAN 4 CHARACTERS 
END OF STATEMENT REACHED BEFORE END OF ASCII CONSTANT 
E-LIST OVERFLOW ~ SIMPLFY STATEMENT 
TWO . IN NUMERIC CONSTANTS 
SYNTAX ERROR 

CONSTANT TABLE OVERFLOW, SIMPLFY STATMENT 
MORE THAN 255 CHARACTERS IN A CONSTANT 



o 


14) $0 





15) $0 

16) $0 


o 


17) $0 


o 


18) $0 

19) $0 


o 


20) $0 


o 
o 


21) $0 

22) $0 

23) $0 


o 




^. 
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o 
o 
o 

24) $0 COMPILER ERROR ~ CONVERT, SCANNER f~\ 
Remarks: This error should never occur. 

25) $0 CONSTANT TOO LARGE ^ 

26) $0 MORE THAN 4 CHARACTERS IN AN ASCH CONSTANT 

27) $0 SYNTAX ERROR 

HEADER STATEMENT ERROR MESSAGES 

1) $0 SYNTAX ERROR 

2) $0 SYNTAX ERROR IN PARAMETER LIST 

3) $0 PARAMETER LIST ILLEGAL 

4) $0 PARAMETER LIST MISSING 

DECLARATIVE STATEMENT ERROR MESSAGES 

1) $0 CANNOT DIMENSION AN EXTERNAL 

2) $0 ARRAY PREVIOUSLY DIMENSIONED 

3) $0 CANNOT DIMENSION A PROGRAM NAME O 

4) $0 ILLEGAL CONSTANT IN DIMENSION ,£\ 

5) $0 SYNTAX ERROR IN DIMENSIONS 

6) $0 ARRAY NAME MUST BE A FORMAL PARAMETER ^1^ 



10) $0 SYMBOL PREVIOUSLY TYPED 
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/T^, 
WJ 






v.- 






/«— X, 



Remarks: Refer to variable dimensions 

7) $0 VARIABLE DIMENSION MUST BE A FORMAL PARAMETER 

8) $0 DIMENSION MUST BE TYPE INTEGER 

9) $0 MORE THAN 3 DIMENSIONS |"1; 



o 



o 



o 



o 



11) $0 ILLEGAL EXTERNAL 

12) $0 NUMBER OF COMMON BLOCK NAMES IS LIMITED TO 30 
Q 13) $0 BLOCK NAME IN BOTH DATA AND SCRATCH COMMON 

14) $0 PROGRAM NAME CANNOT BE IN COMMON 

15) $0 ILLEGAL SYMBOL IN VARIABLE UST 






o 





o 



• 



EQUIVALENCE STATEMENT ERROR MESSAGES 



1) $0 EXTERNAL OR FORMAL PARAMETER IN EQUIVALENCES 
C 2) $0 EQUIVALENCE RELATION ERROR 

Remarks: The relation error is caused by inconsistent equlvalencing, such as: 
EQUIVALENCE (A(l), B(l)), (A(2),B(3)) 

3) $0 PROGRAM OR FUNCTION NAME IN EQUIVALENCE 

4) $0 TWO ELEMENTS OF SET IN COMMON 

5) $0 CANNOT SUBSCRIPT A SIMPLE VARIABLE 

6) $0 SYNTAX ERROR IN SUBSCRIPTS 

7) $0 TOO MANY SUBSCRIPTS IN ARRAY 
Remarics: The number of subscripts must not exceed the number of dimensions. 



DATA STATEMENT ERROR MESSAGES 



1) $0 SYMBOL $5 IS A FORMAL PARAMETER 

2) $0 VARIABLE $5 IS IN SCRATCH COMMON 

3) $0 VARIABLE $5 HAS A CONSTANT OF DIFFERENT WORD SIZE 

4) $0 LIST CONTAINING $5 HAS TOO MANY CONSTANTS 

5) $0 LIST CONTAINING $5 HAS TOO MANY VARIABLES 
O 6) $0 REPEAT FACTOR MUST BE TYPE INTEGER 

14061100 A 



C-5 



EXECUTABLE STATEMENT ERROR MESSAGES 

LEFT SIDE OF REPLACEMENT MUST BE A VARIABLE 

SYNTAX ERROR IN LEFT SIDE OF REPLACEMENT 

SYNTAX ERROR IN LIST 

VARIABLE MUST BE TYPE INTEGER 

ILLEGAL USE OF SYMBOL 

ILLEGAL STATEMENT AFTER THE LOGICAL IF 

ENTRY NAME PREVIOUSLY USED 

ILLEGAL SUBROUTINE NAME 

SYNTAX ERROR IN EXPRESSION 

ILLEGAL USE OF PROGRAM OR ENTRY POINT NAME 

FUNCTION MUST HAVE ARGUMENTS 

FUNCTION NAME MUST BE AN EXTERNAL 

ILLEGAL USE OF FUNCTION NAME 

ILLEGAL USE OF EXTERNAL PROCEDURE NAME 

SUBSCRIPTED VARIABLE NOT DIMENSIONED 

TOO MANY SUBSCRIPTS 

SYNTAX ERROR IN SUBSCRIPTS 

CONSTANT IN SUBSCRIPT OUT OF RANGE 

R-LIST TABLE OVERFLOWED 

OPERATOR TABLE OVERFLOWED 

OPERAND TABLE OVERFLOWED 

FUNCTION TABLE OVERFLOWED 

ILLEGAL SYMBOL USED AS AN INDEX 

C-6 



1) 


$0 


2) 


$0 


3) 


$0 


4) 


$0 


5) 


$0 


6) 


$0 


7) 


$0 


8) 


$0 


9) 


$0 


10) 


$0 


11) 


$0 


12) 


$0 


13) 


$0 


14) 


$0 


15) 


$0 


16) 


$0 


17) 


$0 


18) 


$0 


19) 


$0 


20) 


$0 


21) 


$0 


22) 


$0 


23) 


$0 



o 
o 
o 
o 
o 
o 
o 

o 
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o 



24) $0 NO PATH TO THIS STATEMENT 

25) $0 DOUBLY DEFINED STMT LABEL 

26) $0 STMT LABEL MUST BE BETWEEN 1 AND 99999 

27) $0 ILLEGAL STATEMENT LABEL 

28) $0 STMT LABEL USED AS A FORMAT NUMBER 

29) $0 ILLEGAL MODE CONVERSION 

^ 30) $0 ILLEGAL OPERATION LOGICAL .OP. ARITHMETIC 

31) $0 LOGICAL OPERAND IN AN ARITHMETIC EXPRESSION 

32) $0 .XOR. IS MASKING ONLY 

^ 33) $0 RELATIONAL OPERATOR CANNOT BE USED WITH LOGICAL OPERANDS 

34) $0 ILLEGAL EXPRESSION LOGICAL .OP. LOGICAL . OP, = + -*/ 

35) $0 WRONG ARGUMENT COUNT FOR INTRINSIC FUNCTION 

36) $0 ILLEGAL EXPONENTIATION 

©37) $0 RIGHT-HAND SIDE OF LOGICAL REPLACEMENT STMT . OR LOGICAL IF 
EXPRESSION IS NOT TYPE LOGICAL 

O DO LOOP STATEMENT ERROR MESSAGES 






5) $0 






1) $0 SYNTAX ERROR IN DO STMT 

2) $0 ILLEGAL DO-LOOP CONTROL VARIABLE 

3) $0 DO-LOOP CONTROL VARIABLE USED IN A PREVIOUS LOOP 

4) $0 ILLEGAL DO-LOOP PARAMETER 
DO-LOOP DEPTH EXCEEDED 



6) $0 THE TERMINAL LABEL FOR THIS DO IS PREVIOUSLY DEFINED OR IS A 

FORMAT NUMBER 



7) THE DO- LOOP DEFINED AT LINE $1 TERMINATES AT THE END STMT. 
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8) THE CONTROL VARIABLE FOR THE LOOP DEFINED AT LINE $1 IS MODIFIED 
IN THE LOOP 

9) DO PAR M2 FOR THE LOOP DEFINED AT LINE $1 IS MODIFIED IN THE LOOP 

10) DO PAR M3 FOR THE LOOP DEFINED AT LINE $1 IS MODIFIED IN THE LOOP 

11) THE LOOP DEFINED AT LINE $1 IS ENTERED FROM OUTSIDE OF ITS RANGE 

12) THE TERMINAL LABEL FOR THE LOOP DEFINED AT LINE $1 IF REFERENCED 
FROM OUTSIDE OF THE LOOP 

I/O STATEMENT ERROR MESSAGES 

1) $0 ILLEGAL FORMAT NUMBER 

2) $0 FORMAT NO. MUST BE BETWEEN 1 AND 99999 

3) $0 FORMAT NO. NOT ASSIGNED TO A FORMAT 

4) $0 SYNTAX ERROR, FORMAT 

5) $0 VARIABLE FORMAT NOT A VARIABLE 

6) $0 I/O SYNTAX ERROR, UPC NOT TYPE INTEGER 

7) $0 I/O SYNTAX ERROR, UPC GREATER THAN 65535 



9) 


$0 


10) 


$0 


11) 


$0 


12) 


$0 


13) 


$0 



ENCODE/DECODE/BUFFER STMT. , $8 RECORD OR BUFFER ADDRESS 
IS A FUNCTION OR ROUTINE NAME 



ENCODE/DECODE/BUFFER STMT., $8 RECORD OR BUFFER ADDRESS IS 
NOT DIMENSIONED 

« 

R-LIST OVERFLOW, SIMPLE Y STATEMENT 

SYNTAX ERROR, I/O STMT (UNIT, FORMAT) LIST OR (UNIT) LIST 
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o 

o 



Vy 



O 



8) $0 I/O SYNTAX ERROR, UPC MUST BE INTEGER CONSTANT OR INTEGER ((^ 

VARIABLE 

■#>■- 
Remarks: UPC = unit mode (ASCII or binary) or characters per record, '\P 

ENCODE/DECODE/BUFFER STMT. SYNTAX ERROR, $8 RECORD OR 



"x 



BUFFER ADDRESS MUST BE A VARIABLE \J>> 

O 



C 



O 

o 
o 



o 



o 



14) $0 SYNTAX ERROR, I/O STMT (UNIT, PARITY) (A,B) 
Remarks: A = First variable of the block 

^ B = Last variable of tlie block 

15) $0 SYNTAX ERROR IN I/O UST 

16) $0 SYMBOL IN I/O LIST IS NOT A VARIABLE 
Q 17) $0 SYNTAX ERROR, I/O STMT. 

18) $0 SYNTAX ERROR, I/O STMT. (C,F,W)L 



o 



o 

c 

o 



o 



Remarks: Reference to encode/decode statements: 

(C,F,W)L = (characters per record, format statemait number, start 
of record) list. 

19) $0 ILLEGAL ARRAY REFERENCE, VARIABLE IS NOT DIMEN. 

20) $0 UNBALANCED PARENTHESIS IN I/O LIST 

21) $0 FORMAT DOES NOT HAVE A LABEL 

22) $0 ILLEGAL FORMAT LABEL 

23) $0 MULTIPLY DEFINED FORMAT LABEL 

MAIN CONTROL TASK ERRORS 

1) FTN ABORT - INSUFFICIENT CORE 

Remarks: There is not enough core scheduled to open all the managed internal 
compiler tables. 

2) FTN ABORT - BLK/DEBLK ERROR XX, ON LU YY 



^ Remarks: An irrecoverable blocker or deblocker error has occurred on LU YY. 

Refer to MPX/RT Reference Manual, Section 6, for an esqplanation of 
the error XX. 



3) FTN ABORT - INSUFFICIENT SCRATCH 



^^ Remarks: An end-of-file status was encountered on system scratch 1 (LU 60). 

The size of this file is a system parameter. To compile under the 
_^ currait system, the program must be segmented. 
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5) END OF FILE REACHED ON LU XX 

Remarks: An end-of-file status was received on LU XX when one was not 
expected. 

6) ERROR TABLE OVERFLOW - SUBSEQUENT ERRORS NOT LISTED 



2) ILLEGAL CHARACTER 
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o 



o 

4) MORE THAN 19 CONTINUATION CARDS IGNORED |^ 

Remarks: The previous statement contained more than 19 continuation cards. 

Subsequent cards are ignored. ^^ 



o 






Remarks: The error table may be expanded to allow more errors by (J ^ 

reassembling FTN. 



•<.t^ 



•X_J' 



OBJECT TIME INFORMATIVE ERROR MESSAGES ^ 

Format: ERROR IN (Name) CALLED FROM XXXX (Message) 

Where: (Name) = The name of the object routine called by the user 

XXXX = The address of the user caU 

(Message) = The unique error message 

Messages: \jii 

1) RECORD OVERFLOW ^^ 

Remarks: The format specification associated with the last I/O call causes a 

record overflow. For ASCII read or write, the record limit is #> 

136 characters; for ENCODE/DECODE, the record limit is C ^ 

characters. 



c 



Remarks: An illegal character appears in an input field (i.e., character not £\ 

through 9 for format type I). The input record is displayed. ^^ 

3) NUMBER OUT OF RANGE |~^ 

Remarks: The input value cannot be represented without loss of significant 

digits. Zero is returned to the user. The input record is 1: 

displayed. ^^ 



C 



o 



o 
o 
o 
o 

o 
o 

o 

o 

Q 



O 

o 

o 



OBJECT TIME FATAL ERROR MESSAGES 

Format: ERROR IN (Name) CALLED FROM XXXX (Message) 

Where: (Name) = The name of the object routine called by the user 
XXXX = The address of the user call 
(Message) = The unique error message 
Messages: 

1) ILLEGAL LOGICAL UNIT 

Remarks: The LU number is not in the range 1 through 63. 

2) REFERENCE CONFUCT ON LU, XX 

Remarks: LU XX cannot be referenced by both buffered and nonbuffered 
statemeats. 

3) UNCHECKED END OF FILE ON LU, XX 

Remarks: An aid of file was encountered on LU XX on the previous read, and 
function IFUNIT was not called to clear the status. 



#> 4) UNCHECKED END OF ALLOCATED AREA ON LU, XX 

Remarks: An end of allocated area status was received on LU XX on the 
^) previous read/write, and fiinction IFUNIT was not called to clear 

the status. 

Qf 5) UNCHECKED END OF DEVICE ON LU, XX 

— ^ Remarks: An end of device status was received on LU XX on the previous 

^y read/write, and fiinction IFUNIT was not called to clear the status. 



6) BLOCKER/DEB LOCKER ERROR XX, ON LU YY 

Remarks: Blocker/ddblocker returned the fatal error status XX on LU YY. 
Refer to MPX/RT Reference Manual for ejqilanation of blocker/ 
deblocker error codes. 

7) EXECUTION DELETED - NO TRANSFER ADDRESS 

Remarks: A FORTRAN PROGRAM statement or COMPASS END card with a 
name in the address field generates the transfer address. 
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o 
o 

8) EXECUTION TERMINATED - INSUFFICIENT MEMORY ^ 
Remarks: More memory is needed for I/O buffers. 

9) ILLEGAL SPECIFICATION O 

Remarks: The output field width for the associated format statement is not g-^ 

large enough to accommodate the value (i. e. , w> 6 + d is required), xj' 



10) BUFFER LENGTH ERROR 

Remarks: The first word address specified in a BUFFER IN/OUT statement 
is greater than the last word address. 

OBJECT TIME FORMAT ERRORS 

Format: FORMAT ERROR N - XXXX 

Where: N = The unique format error number 

XXXX - The address of the format statement 
All format errors are fatal. 
Error Number Significance 

1 Format list does not begin with a left parenthesis. 

2 Illegal repeat factor was encountered: 

a) Repeat factor = 

b) Repeat factor is not an integer 



9 
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o 
o 



-^.^ 



Unrecognizable format conversion; the format conversion is 4.^ 

designated by a symbol other than E, F, D, I, A, R, $, L, 
H, X, or P. 






o 



4 Illegal field width or missing field width: 

a) Field width = 

b) No field width present I i,- 

c) Illegal character in field width specification 

5 A number precedes a slash, comma, or right parenthesis. 

6 Parenthesis error: 

a) Repeat groups may not be nested ^-. 

b) A parenthetical grouping may not appear within a repeat \_ji 
group 

7 More than one decimal point appears in the numeric field. £~\\ 

8 Numeric value exceeds 32767. 



No non-H, non-X specification present in format when needed. ^~\ 



o 
o 



o 



o 



o 



o 



MATHEMATICAL LIBRARY INFORMATIVE ERROR MESSAGES 



1) ERROR IN DSQRT CALLED FROM hhhh NEG ARGUMENT 

2) ERROR IN SQRT CALLED FROM hhhh NEG ARGUMENT 

%J 3) ERROR IN ATAN2 CALLED FROM hhhh BOTH ARGUMENTS ARE ZERO 

4) ERROR IN DATAN2 CALLED FROM hhhh BOTH ARGUMENTS ARE ZERO 

5) ERROR IN MOD CALLED FROM hhhh SECOND ARG IS ZERO 

6) ERROR IN AMOD CALLED FROM hhhh SECOND ARG IS ZERO 

7) ERROR IN DMOD CALLED FROM hhhh SECOND ARG IS ZERO 

8) ERROR IN ALOG CALLED FROM hhhh ARGUMENT TOO SMALL 

9) ERROR EN ALOGIO CALLED FROM hhhh • ARGUMENT TOO SMALL 

10) ERROR IN DLOGIO CALLED FROM hhhh ARGUMENT TOO SMALL 

11) ERROR IN DLOG CALLED FROM hhhh ARGUMENT TOO SMALL 

Remarks: For arguments less than or equal to zero, messages 8 through 11 are 
r^jorted for logarithms. 

^^ 12) ERROR IN ISIGN CALLED FROM hhhh FIXED POINT OVERFLOW 

#J) Remarks: For the argument $80000000, the above message Is reported. 

13) ERROR m SIN CALLED FROM hhhh ARGUMENT TOO BIG 

14) ERROR IN COS CALLED FROM hhhh ARGUMENT TOO BIG 

^ Remarks: For arguments whose absolute value is greater than 2^^, messages 13 

and 14 are reported. 

Q 15) ERROR IN TAN CALLED FROM hhhh ARGUMENT IS MULTIPLE OF pi/2 ~ TAN 

IS UNDEFINED 

O 16) ERROR IN TAN CALLED FROM hhhh ARGUMENT TOO BIG 

©Remarks: For arguments whose absolute value is greater than 2^^, the above 
message is reported for tangent. 

17) ERROR IN DSm CALLED FROM hhhh ARGUMENT MAGNITUDE TOO BIG 
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34) ERROR IN DER CALLED FROM hhhh BASE IS NEGATIVE AND POWER IS 
NONZERO 

35) ERROR IN DER CALLED FROM hhhh BASE AND POWER ARE ZERO 

36) ERROR IN DER CALLED FROM hhhh ARC MAG TOO BIG 

37) ERROR IN DED CALLED FROM hhhh BASE IS ZERO AND POWER IS NEGATIVE 
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o 
o 

o 
o 

o 

o 



18) ERROR IN DCOS CALLED FROM hhhh ARGUMENT MAGNITUDE TOO BIG 

50 
Remarks: For arguments whose absolute value is greater than 2 , messages 

17 and 18 are reported. 

19) ERROR IN EXP CALLED FROM hhhh ARGUMENT TOO BIG 

20) ERROR IN DEXP CALLED FROM hhhh ARGUMENT TOO BIG 
Remarks: For arguments greater than 127 ln2, messages 19 and 20 are reported. 

21) ERROR IN lEI CALLED FROM hhhh NEG ARGUMENT 

22) ERROR IN lEI CALLED FROM hhhh BASE AND POWER ARE ZERO 

23) ERROR m REI CALLED FROM hhhh BASE AND POWER ARE ZERO 

24) ERROR IN DEI CALLED FROM hhhh BASE AND POWER ARE ZERO 

25) ERROR IN RED CALLED FROM hhhh BASE IS ZERO AND POWER IS NEGATIVE ^^^ 

26) ERROR IN RED CALLED FROM hhhh BASE IS NEGATIVE AND POWER IS 
NONZERO 

27) ERROR IN RED CALLED FROM hhhh BASE AND POWER ARE ZERO 

28) ERROR IN RED CALLED FROM hhhh ARG MAG TOO BIG 

29) ERROR IN RER CALLED FROM hhhh BASE IS ZERO AND POWER IS NEGATIVE ^"^ 

30) ERROR IN RER CALLED FROM hhhh BASE IN NEGATIVE AND POWER IS ([^ 
NONZERO 

31) ERROR IN RER CALLED FROM hhhh BASE AND POWER ARE ZERO 

32) ERROR IN RER CALLED FROM hhhh ARG MAG TOO BIG 

33) ERROR IN DER CALLED FROM hhhh BASE IS ZERO AND POWER IS NEGATIVE 



'A^^ 



/0 \ 



c 



o 
o 






o 



38) ERROR m DED CALLED FROM hhhh BASE IS NEGATIVE AND POWER IS 
NONZERO 

39) ERROR IN DED CALLED FROM hhhh BASE AND POWER ARE ZERO 

40) ERROR IN DED CALLED FROM hhhh ARC MAG TOO BIG 



^ Remarks: Messages 21 through 40 are error messages for exponentiation with 

I representing integer arguments, R representing real arguments, 
^^^ and D r^resenting double precision arguments. 

o 

o 
o 

o 
o 

0' 

o 
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FORTRAN STATEMENTS 



CLASS 1 STATEMENTS 

1) PROGRAM s 

2) SUBROUTINE s 



gy^ 3) SUBROUTINE 8(3,3^,..., a ) 

o 



4) FUNCTION f (a,,a„,..., a ) 



5) REAL FUNCTION f (a,,a_,...,a ) 

6) DOUBLE PRECISION FUNCTION f (a,,a„, ...,a ) 

r 2 n 

7) INTEGER FUNCTION f (a^. a^ a ) 

8) LOGICAL FUNCTION f (a,,a„,..., a ) 

12 D 

CLASS 2 STATEMENTS 



1) EXTERNAL v, , v„, . . . , v 

12 D 



Q 2) CHARACTER v^, V2,...,v 





3) INTEGER v,v,...,v 



4) REAL V ,v V 

1 ^ n 

5) DOUBLE PRECISION v, , v„ v 

12 n 

6) LOGICAL V, , v„, . . . , v 

7) DIMENSION V J, ai).V2 ag) v^(lj 

8) COMMON //a/ 

9) COMMON /x, /a, /. . . /x /a 

linn 
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o 
o 
o 

10) SCRATCH COMMON /Xj/aj/.../x^/a^ |^ 



11) COMMON a, , a„ , . . . , a 

CLASS 3 STATEMENTS 



o 
o 

o 

o 

1) DATA k^/d./.kg/d^/. . . . .way ^ 



1) EQUIVALENCE (k^), (k^),..., (kj 

CLASS 4 STATEMENTS 



CLASS 5 STATEMENTS 



1) v^=V2 = ... =\ = e 

2) GO to k 

3) GO TO m, (k^,k2,...,k^) 



11) PAUSE n 

12) STOP 

13) STOP n 

14) ENTRY s 



,/^~>., 
''\_>' 



■'*..-> 



4) GO TO (k^, kg k^),l (Q 

5) IF (e) k^. kg. kg 

6) IF (e) s ^' 

7) DO n i = m^, m^, nig ^ 



■~>, 



8) ASSIGN k TO i 

9) CONTINUE ^ 
10) PAUSE O 



c 



o 
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o 

o 

o 

o 



15) RETURN 

16) CALL s 



17) CALL s (e , e , ...,e^) 



18) FORMAT ( ) 

19) READ (u, f) 1 

20) WRITE (u,f) 1 

21) READ (u)l 

22) WRITE (u) 1 

23) REWIND u 
^ 24) BACKSPACE u 

25) ENDFILE u 

Class 5 statements that are not USA standard FORTRAN include the following: 



o 


1) 


READ f 1 


2) 


PRINT f, 1 


c 


3) 


BUFFER IN (u,p) (a,b) 


o 


4) 


BUFFER OUT (u,p)(a,b) 


5) 


ENCODE (c,n,w)l 


o 


6) 


DECODE (c,n,w)l 


o 


CLASS 6 STATEMENTS 


e 


1) 


END 


mk 


2) 


END s 
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c 

Q 



.4^: 
'4^' 






"A^-> 



C 

c 



o 



o 
o 

o 

o 






Character 

A 

B 

C 

D 

E 

F 

G 

H 

I 

J 

K 

L 

M 

N 

O 

P 

Q 

R 

S 

T 

U 

V 

w 



CHARACTER CODES 



KejT)unch 


ASCII 


12-1 


41 


12-2 


42 


12-3 


43 


12-4 


44 


12-5 


45 


12-6 


46 


12-7 


47 


12-8 


48 


12-9 


49 


11-1 


4A 


11-2 


4B 


11-3 


4C 


11-4 


4D 


11-5 


4E 


11-6 


4F 


11-7 


50 


11-8 


51 


11-9 


52 


0-2 


53 


0-3 


54 


0-4 


55 


0-5 


56 


0-6 


57 
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E-1 



Character 


Keypunch 


X 


0-7 


Y 


0-8 


Z 


0-9 








1 


1 


2 


2 


3 


3 


4 


4 


5 


5 


6 


6 


7 


7 


8 


8 


9 


9 


Blank 


None 


= 


3-8 


+ 


12 


- 


11 


* 


11-4-8 


/ 


0-1 


( 


0-4-8 


) 


12-4-8 


• 


12-3-8 


« 


0-3-8 



ASCII 

58 
59 
5A 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
20 
3D 
2B 
2D 
2A 
2F 
28 
29 
2E 
2C 



o 
o 

o 
o 
o 






H,.^' 



c 
o 
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FORTRAN INTERFACE ROUTINES 



The FORTRAN interface library subroutines are designed to allow the FORTRAN user to 
directly call routines within MPX from FORTRAN. Thus, the need for assembly level 
code to perform functions previously not available under MP-60 FORTRAN has been 
eliminated. These subroutines will pick up the parameters passed by the FORTRAN call, 
set up the necessary registers, and perform either a monitor call or jump and reset 
index to the appropriate MPX routine. Upon completion of the MPX routine, control will 
return to the interface subroutine which will return control to the calling FORTRAN user. 

The FORTRAN interface library subroutines have been divided into four groups. The 
groupings are as follows: 

Group 1 - Blocker/deblocker interface subroutines 

Group 2 - Console display, status, logical unit to hardware type 
correlation inter&ce subroutines 

Group 3 - OCARM (FILE MANAGER) and miscellaneous I/O function 
interface subroutines 

Group 4 - Miscellaneous subroutines. 

Table F-1 contains the FORTRAN interface library subroutine names, the MPX Operating 
System routines associated with each, and a brief description of the function(s) performed 
by the MPX routine. For a detailed description of the MPX Operating System routines 
referenced in Table F-1, refer to ttie MP-60 Computer System MPX/RT Reference Manual, 
or the MP-60 Computer System MPX/OS Reference Manual. 



GROUP 1 FTNINTl 

FTNPACK 

This subroutine is called as follows: 

CALL FTNPACK (P1,P2,P3,P4,P5) 

14061100 C F-l« 





TABLE 


F-1. FORTRAN INTERFACE LIBRARY SUBROUTINES 






MPX 




Grp 


Subroutine 


Routine 


Function Performed Within MPX Routine 




FTNPACK 


PACK 


Transfer record to PACKD buffer area 




FTNPACKC 


PACKC 


Remove LU ftom blocker/deblocker tables 




FTNPACKD 


PACKD 


Establishes blocking area (buffer) 




FTNPACKO 


PACKO 


Output partially fiUed buffer 




FTNPICK 


PICK 


Transfer record to user's record area 




Jj'TNPICKC 


PICKC 


Remove LU from blocker/deblocker tables 




FTNPICKD 


PICKD 


Establish the deblocking area (buffer) 




FTNPICKI 


PICKI 


Skip record (s) 


2 


FTNCTOC 


CTOC 


Send command message to operator via CRT 


2 


ri'NCTOI 


CTOI 


Send information message to operator via CRT 


2 


FTNULOC 


ULOC 


Locate to specified block 


2 


FTNUST 


UST 


Status logical imit 


2 


FTNUTYP 


UTYP 


Determine hardware type assigned to LU 


*2 


FTNXSTAT 


XSTAT 


Status logical unit (expanded) 


*2 


FTNCLEAR 


CLRIO 


Cancel the last command to specific device 


*2 


FTNRDSTA 


RDSTAT 


Obtain RTC status for a particular device 


*2 


JfTNFVFC 


FVFC 


Vertical format control for printer 


*2 


FTNFMODE 


FMODE 


Select or suppress echo mode to plasma 


*2 


J-TNFBS 


FSS 


Select high speed mode on printer/plotter 


3 


FTNALLOC 


ALLOCATE 


Create file label in system label directory 


3 


i-TNCLOSE 


CLOSE 


Remove reference to a file from the system tables 



♦This routine not available to MPX /OS users. 
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o 

© 









Grp 



*3 
3 

*3 
3 
3 



TABLE F-1. FORTRAN INTERFACE LIBRARY SUBROUTINES (Cont.) 



Subroutine 



FTNERASE 
FTNTMODFY 
FTNOPEN 
FTNREAD 

FTNRELES 

FTNSELDN 

FTNSELTR 

FTNSEOF 

FTNSFNCT 

FTNUNLD 

FTNWRITE 

FTNPARM 



MPX 
Routine 



ER,ASE 
MODIFY 
OPEN 
READLU 

RELEASE 

SELDEN 

SELTRK 

SEOF 

SFNCT 

UNLD 

WRITLU 



Function Performed Within MPX Routine 



Erase specific area ok logical unit 

Change the label of an existing closed file 

Prepare existing file for data transmission 

Data transfer from logical unit to user 
designated buffer area 

Release some or all of the space allocated 
to a file 

Select recording density of LU 

Select specified track of logical unit 

Search for end-of-file (forward, backward) 

Issue special function command to LU 

Unload logical unit 

Data transfer to logical unit from user 
designated buffer area 

Transfer specified area of PARM to user 
designated area. 



I^This routine not available to MPX/OS users. 
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where PI = Mode of record (0=ASCII, 1 = binary) 
P2 = Logical unit number 
P3 = First byte of record to be transferred 
P4 = Number of bytes to be transferred 
P5 = Location (2 words) where status will be returned. 



FTNPACKC 



FTNPACKD 

This subroutine is called as follows: 

CALL FTNPACKD (P1,P2,P3,P4,P5,P6) 
where PI = Type of buffering (O=double, l=single) 

P2 = Logical unit number 

P3 = First word of record to be transferred 

P4 = Number of words to be transferred 

• F-4 14061100 C 
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This subroutine will load the appropriate parameters, PI through P4, into registers ,ir\ 

RB,RC and RD and jump to MPX routine pack. Upon return of control, this subroutine i^i*^ 
will retrieve status from PARM and store it in the area specified by parameter P5 before 

returning controller to the calling program. <> 



\y 



This subroutine is called as follows: 

CALL FTNPACKC (P1,P2) 
where PI = Logical unit number "^ 

P2 = Location (2words) vtiiere status will be returned. 






This subroutine will load the parameter PI into register RB and jump to MPX routine ^^ 

PACKC. Upon return, this subroutine will retrieve status from PARM and store it in the ((^z 

area specified by parameter P2 before returning to the caller. 






o 
o 



o 



o 



o 



o 



^ P5 = Block number of first write (mass storage files only): 

Less than = file is positioned to highest block + 1 
Equal to = file is not positioned 
^Jl Greater than = file is positioned to specified block 

P6 = Location (2 words) where status will be returned. 

o 

This subroutine will load the appropriate parameters, PI through P5, into registers 

CRB.RC.RD and RE and jump to MPX routine PACKD. Upon return of control, this 
subroutine will retrieve status from PARM and store it in the area specified by P6 
before returning to caller. 

\^' 
0» 



o 






o 



FTNPACKO 



This subroutine is called as follows: 
CALL FTNPACKO (P1,P2,P3) 
where PI = Logical unit number 

P2 = Block number of first write (mass storage files only): 
Less than = output to highest block written +1 
^ Equal to = output to next sequential block 

Greater than = output to specified block 
P3 = Location (2 words) wiiere status will be returned. 

^ This subroutine will load parameters PI and P2 into registers RB and RE, respectively, 

and jump to MPX routine PACKO. Upon return of control, this subroutine will retrieve 
status from PARM and store it in the area specified by P3 before returning to caller. 



FTNPICK 

This subroutine is called as follows: 

CALL FTNPICK (P1,P2,P8,P4) 
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where PI = Logical unit number 

P2 = First byte address of the record to be transferred 

P3 = Lei^h of record in bytes 

P4 = Location (2 words) where status will be returned. 

This subroutine will load the appropriate parameters, PI through P3, into registers 
RB, RC and RD and jump to MPX routine PICK. Upon return of control, this subroutine 
will retrieve status from PARM and store it in the area specified by P4 before returning 
to the caller. 



This subroutine is called as follows: 

CALL FTNPICKC (P1,P2) 
where PI = Logical unit number 

P2 = Location (2 words) where status will be returned. 
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FTNPICKC ^^ 



■\^' 



■•!..-.- 



This subroutine will load parameter PI into register RB and jump to MPX routine PICKC. 

Upon return of control, this subroutine will retrieve status from PARM and store it in (|^^ 

area specified by P2 before returning control to caller. ^''^^ 

FTNPICKD ^' 

o 

This subroutine is called as follows: 

CALL FTNPICKD (P1,P2,P3,P4,P5,P6) ^ 

where PI = Type of buffering (O=double, l=sii^le) 

P2 = Logical unit number 

P3 = First word of record to be transferred 

P4 = Number of words to be transferred 



o 



o 



n 



o 
o 

\J P5 = Block number of first read (mass storage files only) : 

g^ Less than or equal to = file is not positioned 

Greater than = file is positioned to specific block 
\J P6 = Location (2 words) where status will be returned. 

OThis subroutine will load the appropriate parameters, PI through P5, into registers 
RB, RC, RD and RE and jump to MPX routine PICKD. Upon return of control, this 

O 

1^ FTNPICKI 



o 



subroutine will retrieve status from FARM and store it in the area specified by P6 
before returning to caller. 



This subroutine is called as follows: 
CALL FTNPICKI (P1,P2,P3) 

C where PI = Logical unit number 

P2 = Block number of blocSk to be input (mass storage only) : 
Less than or equal to = input next sequential block 
Greater than = input specified block 
O) P3 = Location (2 words) where status will be returned. 

OThis subroutine will load parameters PI and P2 into registers RB and RE, respectively 
and jump to MPX routine PICKI. Upon return of control, this subroutine will retrieve 
status from PARM and store it in area specified by P3 before returning to caller. 



GROUP 2 FTNINT2 



FTNCTOC 



o 

This subroutine is called as follows: 
CALL FTNCTOC (P1,P2) 

o 

^ 1406HOO C . P_7 , 



o 

o 
o 

NOTE 

Data pointed to by PI must be characters ending il 
with hexadecimal 03. On accept location, P2 

will contain hexadecimal 00000041. On reject ^-^ 

location, P2 will contain hexadecimal 00000052. \^- 

This subroutine will set value of PI into register, perform monitor call to MPK routine ^-^ 

CTOC; upon return, this subroutine will load appropriate accept or reject code into P2 \J^ 

and return control to the caller. 



where PI = The first byte of data to be output to CRT 

P2 = The location where accept or reject status is to be returned. 



FTNCTOI 

This subroutine is called as follows: 

CALL FTNCTOI (PI) 
where PI = The first l^te of data to be output to CRT. 

NOTE 



FTNULOC 



P2 = Block number to locate to. 
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,'''"" 



Data pointed to by PI must be characters endii^ ^^ 

with hexadecimal 03. 

This subroutine will set value of PI into register, perform monitor call to MPX routine "^-^ 

CTOI; upon return, this subroutine will return control to the caller. 



C 






This subroutine is called as follows: 

CALL FTNULOC (P1,P2) 
where PI = Logical unit number (f^ 



C 



o 



o 
o 

O FTNUST 






NOTE 

If P2 equals value of -1, the file is positioned to 
the last block written + 1. 

This subroutine will set the values of PI and P2 Into registers and perform a monitor 
call to MPX routine ULOC. Upon return of control, this subroutine will return to caller. 



This subroutine is called as follows: 

CALL FTNUST (PI, P2) 
where PI = Logical unit number to status 

P2 = Location where status word is to be stored. 

This subroutine will load the addresses of PI and P2 into registers and perform a monitor 
call to MPX routine UST. Upon return of control, this subroutine will retuni to caller. 

FTNUTYP 

^^ This subroutine is called as follows: 

£% CALL FTNUTYP (PI, P2) 



where PI = Logical unit number to be tested for 

P2 = Location where hardware tjrpe code is to be returned. 

NOTE 



Refer to MPX/RT Reference Manual Section 3 for hardware 
^% type codes or MPX/OS Reference Manual Section 4. 

^^ This subroutine will set the address of PI into a register and perform a monitor call to 

^P MPX routine UTYP. Upon return this subroutine will retrieve the hardware type code 

from PARM and store into P2 before retumii^ to caller, 

^ 14061100 C F_9, 



FTNXSTAT 
This subroutine is called as follows: 

CALL FTNXSTAT (P1,P2) 
where PI = Logical unit number of device to be tested 

P2 = Location where 2 words of returned status is to be written. 



FTNRDSTA 



This subroutine is called as follows: 



where PI = Logical unit number of device for which status is desired 
P2 = Location where 2 words of returned status is to be written. 



• F-10 14061100 C 



O 

o 
o 
o 
o 
o 



This subroutine will set the values of PI and P2 into registers and perform a monitor 

call to MPX routine XSTAT. Upon return of control, this subroutine will return to caller. *"> 

FTNCLEAR ^A 

This subroutine is called as follows: ' ^ 

CALL FTNCLEAR <P1) 
where PI = Logical unit number of device to be cleared. 



'•t^.y 



This subroutine will set value of PI into a register and perform a monitor call to MPX (.f^ 

routine CLRIO. Upon return of control this subroutine will return to caller. 



4.y 



./^i 

L? 



CALL FTNRDSTA (P1,P2) (Q 



o 



This subroutine will set the value of PI into a register and perform a monitor call to \^, 

MPX routine RDSTAT. Upon return this subroutine will retrieve status from PARM + 1 
and PARM + 2 and store this status in address specified by P2 before returning control 
to caller. 



C 

O 



o 



o 
o 
o 

O FTNFVFC 



o 



^^ This subroutine is called as follows: 

CALL FTNFVFC (P1,P2) 
where PI = Logical unit number of device 
CJ P2 = Format control command, defined as follows: 

Format Command Description 












0-7 Space to channel 0-7 of tape, 

respectively 

16-31 Space 0-15 lines, respectively 

This subroutine will set the values of PI and P2 into registers and perform a monitor 
call to MPX routine FVFC. Upon return of control this subroutine will return to caller. 

FTNFMODE 



This subroutine is called as follows: 
CALL FTNFMODE (P1,P2) 
^% where PI = Logical unit number of device 

P2 = Enable/suppress echo mode designator (0 = suppress, 1 = enable). 



This subroutine will set the values of PI and P2 into registers and perform a monitor 
call to MPX routine FMODE. Upon return of control this subroutine will return to caller. 



FTNFHS 

This subroutine is called as follows: 
CALL FTNFHS (P1,P2) 
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where PI = Logical unit number of device 

P2 = Turn ON/OFF high speed mode (0 = OFF, 1 = ON). 

This subroutine will set values of PI and P2 into registers and perform a monitor call 
to MPK routine FSS. 

GROUP 3 FTNINT3 

FTNALLOC 

This subroutine is called as follows: 

CALL FTNALLOC (PI, P2) 
where PI = The first word of the parameter list 

P2 = The location where OCARM/File Manager status is to be returned. 

This subroutine will set value of PI into register, perform monitor call to MPX routine 
ALLOCATE; upon return, this subroutine will retrieve OCARM/File Manager status &om 
PARM region, store OCARM/File Manager status in address specified by P2, and return 
control to the caller. 

FTNCIOSE 



This subroutine will set value of PI into register, perform monitor call to MPX routine 
CLOSE; upon return, this subroutine will retrieve OCARM/File Manager status from PARM 
region, store OCARM/File Manager status in address specified by P2, and return control 
to the caller. 



• F-12 14061100 C 



o 

o 
o 

o 
o 
o 

o 

o 

G 






X^..'^ 






^ 



This subroutine is called as follows: 

CALL FTNCLOSE (P1,P2) 
where PI = The logical unit nimiber of the file to be closed i , 

P2 = The location where OCARM/File Manager status is to be returned. 






O 

o 



o 

o 

o 



c 

o 

o 



Q 

o 



FTNERASE 

This subroutine is called as follows: 

CALL FTNERASE (PI) 
where PI = Logical unit number of device to erase on. 



^JJ This subroutine will set value of PI into register, perform monitor call to MPX routine 

ERASE and upon regaining control will retujm to caller. 



FTNMODFY 

This subroutine is called as follows: 

CALL FTNMODFY (P1,P2) 
where PI = First word of parameter list 

P2 = Location where OCARM/File Manager status will be returned. 

This subroutine will set the value of PI into register, perform monitor call to MPX 
routine MODIFY and upon return will load the OCARM/File Manager status from PARM 
and store into P2 before returning control to caller. 

FTNOPEN 



This subroutine is called as follows: 
CALL FTNOPEN (P1,P2,P3) 
where PI = First word of parameter list 
0k P2 = Logical unit number to be assigned to file 

P3 = Location where OCARM/File Manager error status will be returned. 



This subroutine will load PI and P2 parameters into registers and perform a monitor call 
to MPX routine OPEN. Upon return of control, this subroutine will retrieve OCARM 
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status from PARM and save this status in the area specified by P3. Control will then be \jf 

returned to the caller. 



FTNREAD 



This subroutine is called as follows; 

CALL FTNRELES (PI, P2) 
where PI = First word of parameter list 

P2 = Location where OCARM/File Manager error status will be returned. 
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This subroutine is called as follows: 

CALL FTNREAD (PI, P2, P3, P4) Ql 

where PI = First wordA)yte of buffer area (see P3 for word/byte explanation) 

P2 = Number of words/bytes in buffer (see P3 for wordAyte explanation) 

P3 = Mode control (2 digits in hexadecimal format): 

00 = ASCn record, word format 

10 = ASCn record, byte format 

20 = BINARY record, word format 

P4 = Logical unit number. 

NOTE 

Caution must be exercised when callii^ this sub- ^' 
routine that the FORTRAN user does not intermix 

with FORTRAN I/O statements without checking /f" 

for completion status. ^-^ 

This subroutine will load the address of PI and the values of P2 thro\:%h P4 into registers ^ !i 

and perform a monitor call to MFX routine READLU. Upon return of control, this sub- ^^ 

routine will return to caller. 

FTNRELES 



o 



o 

o 



o 

^J This subroutine will load PI parameter into a register and perform a monitor call to 

MFK routine RELEASE. Upon return of control, this subroutine will retrieve OCARM/ 

OFile Manager status from PARM and save this status in the area specified by P3. Control 
will then be returned to the caller. 

O FTNSELDN 

%J> This subroutine Is called as follows: 

CALL FTNSELDN (PI, P2) 

where PI = Logical unit number of device density is to be selected on 

\> P2 = Density control code: = low density (556 BPI NRZI - 667) 

^1 1 = high density (800 BPI NRZI - 667/669) 

2 = hyperdensily (1600 BPI PE -669). 

This subroutine will set values of PI and P2 into registers and perform a monitor call 
to MPX routine SELDEN. Upon return, this subroutine will return control to the caller. 

FTNSELTR 



o 






This subroutine is called as follows: 
CALL FTNSELTR (P1,P2) 
#% where PI = Logical unit number of device on which track select is to be done 

P2 = Track control code: = SELECT TRACK 

1 = SELECT TRACK 1 
Q 2 = SELECT TRACK 2 

3 = SELECT TRACK 3. 



o 







This subroutine will load PI and P2 values into registers and perform monitor call to 
MPX routine SELTRK. Upon return of control, this subroutine will return to the caller. 
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FTNSEOF 

This subroutine is called as follows: 

CALL FTNSEOF (P1,P2) 
where PI = Logical unit number of device search is to be perfbrmed on 

P2 = Mode control code: = SEARCH FORWARD 

1 = SEARCH BACKWARD. 

This subroutine will load PI and P2 parameters into registers and perform a monitor call 
to MPK routine SEOF. Upon return of control, this subroutine will return to caller. 

FTNSFNCT 

This subroutine is called as follows: 

CALL FTNSFNCT (PI, P2, P3, P4) 



FTNUNLD 

This subroutine is called as follows: 

CALL FTNUNLD (PI) 
where PI = Logical unit number to be unloaded. 



O 

o 
o 
o 
o 
o 



o 



c 



where parameters PI through P4 will be specified by the system into which the MPX 
routine SFNCT is used. 

This subroutine will set the values of PI throu^ P4 into registers RB through RE, "'^^ 

respectively, and perform a monitor call to MPK routine SFNCT. Upon return of control, 

this subroutine will return to caller. £~^\ 



C 
D 



This subroutine will load the value of PI into a register and perform a monitor call to il 

MEX routine UNLD. Upon return of control, this subroutine will return to caller. 

O 

• F-16 14061100 C 
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o 

Q FTNWRITE 



o 



o 



^ji This subroutine is called as follows: 

CA.LL FTNWRITE (PI, P2, P3, P4) 
where PI = First wordyVte of data to be written (see P3 for word/byte) 
\J' P2 = Number of wordsAjytes to be written (see P3 for words/bytes) 

P3 ■= Mode control (2 digits in hexadecimal format): 
00 = ASCn record, word format 
10 = ASCn record, byte format 

C20 = BINARY record, word format 
I P4 = Logical unit number. 

NOTE 

C. Caution must be exercised when calling this 

subroutine that the FORTRAN user does not 
intermix with FORTRAN I/O statements with- 
#\ out checking for completion status. 

This subroutine will load the address of PI and the values of P2 through P4 into registers 

Oand perform a monitor call to MPX routine WRITLU. Upon return of control, this sub- 
rnufnnn lirfll -PAfll-nn tn nalta-r- 







routine will return to caller. 

GROUP 4 FTNINT4 

FTNPARM 





This subroutine is called as follows: 
CALL FTNPARM (P1,P2.P3) 
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o 

where PI = Address of area where data from PARM is to be saved ^^ 

P2 = This value plus PARM will be first word retrieved from PARM i^ 

P3 = Number of words to be retrieved from PARM starting at word specified by P2. 

o 

This subroutine will load the appropriate parameters, PI through P3 into registers. The 

subroutine will retrieve the locations within PARM specified by P2 and P3 and store the 

contents of these locations in the area specified by PI. Upon completion of this function, 1^ 

control will be returned to the calling program. ^"^ 

O 

o 






\.^' 



c 
o 



o 
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MPX/OS SPECIAL FEATURES 



o 

o 
o 

MPX/OS INTERFACE ROUTINES 

CThe interface routines pertaining to FORTRAN are called the FORTRAN Interface Utility 
(ESRUTIL). This module consists of five individual routines which allow the caller (usually 
FORTRAN) to perform standard system executive service request (ESR) functions. 

Vr A brief description of each routine follows. 

\J^' Routine; lESR 

.Mk, Description: Generate monitor call to specified ESR. 

Calling Sequence: 

CALL lESR (TYPE, PI. P2, P3. P4) or 
K = lESR (TYPE, PI, P2, P3, P4) 

Input Parameter: 

#> TYPE = ESR to perform (must be declared in an 

^^ EXTERNAL statement) 

^ P1-P4 = Parameters one through four, dependent on ESR. 

Output Parameter: 

K = Contents of PARM+0, dependent on ESR. 



Routine: lAPAW 

^ Description: ^ecifies relative location in PARM (word access). 

Calling Sequence: 

K = lAPAW (OFFSET); access in word mode 
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Input Parameter: 

OFFSET = Relative location in FARM (I.e., FARM + OFFSET). 

OFFSET starts from 1, as in FORTRAN indexing (i.e., OFFSET = 1 
for PARM+0). 

Output Parameter: 

K = Contents of word from FARM 



K = LAP AH (OFFSET); access in half-word mode 

Input Parameter: 

OFFSET = Relative location In FARM (i.e. , FARM + OFFSET). 

OFFSET starts from 1, as in FORTRAN indexing (1. e. , OFFSET = 1 
for FARM+0). 

Output Parameter: 

K = Contents of half-word from FARM 



o 
o 
o 

o 
o 
o 



Routine: lAFAH ,,f^ 

Description: Specifies relative location in PARM (half-word access). 

Calling Sequence: ^J" 












Routine; lAFAC 

Description: Specifies relative location in FARM (character access) 

Calling Sequence: 

K = lAPAC (OFFSET); access in character mode 
Input Parameter: fp 



O 



c 



OFFSET = Relative location in PARM (i.e., PARM + OFFSET). ^^ 

OFFSET starts from 1, as in FORTRAN indexing (i.e., OFFSET = 1 ij 
for PAEM+0). 
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o 



Oulput Parameter: 

K = Contents of character from PARM 

Routine; LOCF 



o 

o 
o 

o 

O Description: Provides ttie address of a variable Instead of the data itself. LOCF actually 

modifies the caller's code to load the address, hence LOCF is entered one time per 
occurrence. 

^iJ^ Calling Sequence: 

#\ K = LOCF (VAR) 

Input Parameter: 

^^ VAR = Variable for which address is desired. 

C Output Parameter: 

K = Address of VAR 
To illustrate the use of flie above routines, an example is provided. 
Q PROGRAM EXAMPLE 



EXTERNAL STATGC 



_^ DIMENSION BLOCK(2) 

^ SCRATCH COMMON/GLOBAL/A(4096) 



DATA BLOCK/4HBLOC,4HKONE/ 



C 

C STATUS GLOBAL COMMON BLOCKONE 
C 



O 

OISTATUS = lESR (STATGC, BLOCK(l), BLOCK(2). LOCF(A)) 
ISIZE = IAPAW(2) 
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o 

Routine: IBDB \J 



Description: Generate JSX call to specified blocker/deblocker routine. 
Calling Sequence: 

CALL IBDB (TYPE, PI, P2,P3,P4) 

K = IBDB (TYPE, PI, P2, P3,P4) 
Input Parameters: 

TYPE = blocker/deblocker routine to execute (must be declared in an 
EXTERNAL statement) 

P1-P4 = Parameters one thru four, dependent on blocker/deblocker routine. 



o 
o 

o 



Output Parameter: /r~^\ 

K = Contents of Parm+0, from blocker/deblocker call. 

GLOBAL COMMON DECLARATIONS 

A special reserved scratch common block name (GLOBAL) is to be used by the program- 
mer to signal the beginning of global common block declarations. Scratch common blocks 
encountered by the loader before the occurrence of the common block name GLOBAL ^ 

constitute local scratch common. All subsequent scratch common blocks including (|^ 

GLOBAL will start on a page boundary and comprise global common. 

An example of FORTRAN coding is shown below. \^, 



V,..' 



O 
\j>^ 



SCRATCH COMMON/A(100), B(IOO) 
SCRATCH COMMON/BLOCK l/C(4096) 
SCRATCH COMMON/GLOBAL/D(2048), E(2048) 
SCRATCH COMMON/BLOCK 2/F(8192) 

The example generates two pages of local scratch common and three pages of global 
scratch common. Global common would start at logical address 2000. Global common 
blocks could be mapped into addresses 2000 through 4FFFj^g and referenced by the arrays 
D, E, and F. 

The following ESRs support the GLOBAL common feature. 

GETGC 

STATGC 

RETGC 

Refer to the MPX/OS Reference Manual, Section 4.1, Executive Service Requests, for V> 

the usage of the above ESRs. 
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10-1 






FTN card 


10- through 


10-5 
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IF STATEMENTS 

Conditional transfer of control is provided with the IF statements. 

ARITHMETIC IF 

The form of the arithmetic IF statement is: 



IF (e) k ,k„,k 
^ ' 1 2 3 

e is an arithmetic expression of type integer, real or double precision, and k represents 
statement labels. 

This statement causes expression e to be evaluated and control transferred accordir^ to 
that value. 

e < jump to k 

6 = jump to k 

e > jump to k 

^% For example: 

IF (A*B-CSIN(X)) 10, 10, 20 

IF (N) 5, 6, 7 

IF (A/B*C) 10, 11, 12 



LOGICAL IF 



The form of the logical IF statement is: 

IF (/) S 

^^ i is a logical expression and S is an executable statement (not a statement label). S must 

not be a DO or another IF. If e is true, S is executed. If e is false, S is treated as a 
CONTINUE statement. 



For example: 

IF (L) GO TO 3 

IF (A.GT.16.0.OR.A.EQ.0.) A=B 

14061100 A g_3 



DO STATEMENT 



The DO statement makes it possible to repeat a group of statements immediately following 
the DO statement a number of times, changing the value of a simple integer variable for 
each repetition. The form of the DO statement is: 



n is the label (nimiber) of the statement ending the DO loop; i is a simple integer index 
variable. The m^ are indexing parameters; they must be unsigned nonzero integer con- 
stants or simple integer variables, i is initially set equal to mj, and after each execution 
of the DO loop, m3 is added to i. (When omitted, m3 assumes a value of 1. ) When 1 
becomes greater than m2, the DO loop is satisfied. Maximimi value of the index constant 
is 65,535. 

The DO statement, the statement labeled n, and any intermediate statements constitute a 
DO loop. Statement n may not be a GO TO, FORMAT, another DO statement, an arith- 
metic IF statement, RETURN, STOP, PAUSE, or a lexical IF containing any one of these 
statements. 

DO LOOP EXECUTION 



If a transfer out of the DO loop occurs before the DO is satisfied, tiie value of i is pre- 
served and may be used in subsequent statements. 



o 

o 



%J' 



G 



DO n i = mi,m2,m3 Q, 



o 

X^' 






Vj^' 






Should mi exceed m2 on the initial entry to the loop, the loop is executed once and control 

passes immediately to the statement following statement n. If it does not exceed m2, the 

loop is executed. The value of i is increased by m3 and again compared with m2. The (. J 

process continues until i exceeds m2. The DO loop is then satisfied, and control passes to 

the statement immediately following statement n. 
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Source language and assembly listings are written on the standard output unit, LU 62. 
The punchable output is written on the standard punch unit, LU 61, and automatically 
punched. Executable output is written on the standard load and go file, LU 57. Input 
source was read from the standard input unit, LU 63. 



r 



*FTN (I = 10, L, R, X = 11 



Source input is from LU 10. Source output listing with cross-reference listii^ is on LU 
62. Executable binary is written on LU 11. 

CONTROL CARD NOTES 



For a detailed description of all MPX control cards, refer to the MPX/RT Reference 
Manual (Section 2). Information relevant to FORTRAN is, however, contained In this 
section. 

Core memory assigned to a job should be requested by the user via the MPX schedule 
statement (*SCHED). A minimum of 11 pages is needed to compile small FORTRAN 
programs. Larger programs require more memory, up to a maximum of 16 pages. When 
executing FORTRAN-compiled programs containing ASCII input or oulput statements, memory 
must be scheduled for I/O buffers (a 480-word buffer for each unique logical unit). 

The FORTRAN compiler uses system scratch files 1 and 2 (LUs 59 and 60) as intermediate 
files. The user should reposition these files if they are to be used later in the job. 



^^ A FINIS card is used to notify the compiler that there are no more programs to be 

compiled. The word FINIS must b^in in column 10. 

o 



10 



r 



FINIS 



CALLENG SEQUENCES 

Programs written in MP-60 assembly language (COMPASS) may call or be called by 
programs compiled by MP-60 FORTRAN. Calling sequence conventions have been 
established for this purpose. 
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The calling sequence compiled for an external reference of the form 



CALL NAME 


(P,. 


•P2-- 


"Pn 


) is: 


RTJ 








NAME 


UJP 








*+(n+l) 


VFD 








16/0, 16/p 


VFD 








16/0, 16/p, 



VFD 
Where: 

NAME 



16/0, 16/p 



Entry point of the program unit being referenced 
Address of the i parameter 



The main program, the set of FORTRAN statements bounded by a PROGRAM statement and 
an END statement, is entered initially by MPX. If the main program contains either 
ASCII I/O statements or STOP statements, a FORTRAN library routine with entry points 
Q8QENTRY and Q8QEXITS is provided to interface with MPX. The initialization performed 
by the main program includes clearing register XI, which is needed for double precision 
arithmetic operations and tests. 

Subroutines, entered by the CALL statement or from COMPASS programs, use all registers. 
Functions save and restore all registers except RA-RF (registers 26 through 31) and return 
the function value in register RE (or RE-RF if the function is a type double precision). 
Both subroutines and function require register X to be zero upon entrance. Refer to 
Section 7 for further explanation of subprogram relationships. 



o 

o 






o 






'■<-^' 









o 



*Note that if p. is type character, address field would be 14/0, 18/p. . 
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LOGICAL 

A logical constant is a truth value: 

.TRUE, or .FALSE. 
A logical constant occupies one bit of storage: 1 for true and for false. 
For example: 
LOGICAL XI, X2: 

XI = .TRUE. 

X2 = .FALSE. 

VARIABLES 



A variable name consists of 1 to 8 alphanumeric characters; the first character must be 
alphabetic. It represents a specific storage location. 

The FTN-60 compiler recognizes simple and subscripted variable names. A simple 
variable name represents a single quantity; a subscripted variable name represents a 
single quantity within an array of quantities. The type of a variable is designated either 
explicitly in a type declaration or implicitly by the first letter of the variable name. A 
first letter of I, J, K, L, M, or N indicates an integer (fixed point) variable; any other 
first letter indicates a single precision real (floating point) variable. 

SIMPLE VARIABLES 



A simple variable name identifies the location where a variable value can be stored. A 
variable which has been defined as double precision real occupies two consecutive memory 
locations. Integer and single precision variable names refer to single memory locations. 
Variable names which have been declared as character or logical types correspond to 
character addresses and bit addresses, respectively. 

SUBSCRIPTED VARIABLES 



A subscripted variable name identifies the location in an array where a variable value can 
be stored. 
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o 

o 

An array is a block of successive memory locations comprising the elements of the array. ^"^ 

Each element of an aarray is referenced by the array name plus a set of subscripts. The 

type of an array is determined by the array name or a type declaration. 1 Ji 

Arrays may have one, two, or three dimentions; the maximum number of array elements 

is the product of the dimensions. "Hie maximum number of words used in an array cannot (f I 

exceed 65,535, The array name and its dimensions must be declared at the beginning of 

the program in a DIMENSION, COMMON, or SCEATCH COMMON statement. 

o 

Subscript Forms 

A subscript indicates the position of a particular element in an array. A subscript con- (^j) 
sists of a pair of parentheses enclosing from one to three subscript expressions which 

are separated by commas. The subscript follows the array name. A subscript expression ^-^ 

can be any valid arithmetic expression. The value of the expression must be integer. ^_y 

If the number of subscript expressions is less tihan the number of declared dimensions, the ^^^ 

compiler assumes the omitted subscripts have a value of one. The number of subscript {\^ 

expressions in a reference must not exceed the number of declared dimensions. 

The value of a subscript must never be zero or negative. It should be less than or equal \_j/ 

to the product of the declared dimensions, or the reference wUl be outside the array. If 

the reference is outside the bounds of the array, results are unpredictable. ^f-^ 

Valid subscript forms: i^ 

A(1,K) ARRY1(ARRY2(I,J*K-M+4),ARRY3(I), 10) k_y 

B(l+2,J-3,6*K+2) 

LAST(6) 

ARAYD(1,3,2) 

STRING(3*K*ITEM+3) 

V' 

Invalid subscript forms: ^^' 

ATLAS(0) zero subscript causes a reference outside of the array €^^ 

D(l . GE. K) relational or logical expression illegal ^-^ 

A(, 1) or A(1,,K) commas can only be used to separate adjacent subscript 

expressions , /f^^ 
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the single 
subscript 
NEXT(3) 
represents 
NEXT (3, 1, 1) 



-NEXT(3,2) ^ 
represents 
NEXT(3,2, 1) 



-NEXT (2, 2) 
represents 
NEXT(2,2, 1) 



In the three-dimensional array NEXT when only one or two subscripts are shown, the 
remaining subscripts are assumed to be one. 

At no time during program execution can a simple integer variable used as an index 
variable take on a value greater than 65,535. 



Array Structore 

Elements of an array are stored by column in ascending storage locations. The location 
of an array element with respect to the first element is determined by the maximum array 
dimensions and the type of the array. 

The first element of array A(I, J, K) is (1,1,1). The location of element A(i, j, k) with 
respect to A(l, 1, 1) is: 

Loc A(l,j,k) = loc A(l,l,l) + ((i-l)+(j-l)*I+ (k-l)*I*J) *E 



o 
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o 

o 

o. 

o 









c 



o 

o 
o 



o 



o 
o 




D 

D 





PROGRAM OPERATION TO 



The MP-60 FORTRAN compiler (FTN-60) is called into execution via an MPX library task 

control card. Parameters on this control card define compile options and are passed to 
the compiler through the PARM area assigned to the job. 

o 

A description of the FORTRAN control card and other information needed to compile and 
^1^ execute MP-60 FORTRAN programs under MPX are contained in this section. For 

^Jf! detailed descriptions of control cards, both necessary and optional, refer to the MP-60 

Reference Manual, Control Data publication No. 14306500. 

D 
(5 



^QiA^P 



The MPX task name control card that causes MP-60 FORTRAN to be called, loaded, and 
executed appears as follows: 



r 



*FTN (field, , fieW fields) 

1 Z 6 



OAll fields are optional and may appear in any order on the card. Blanks are ignored, and 
illegal characters are assumed to be commas. Fields are of the following formats: 

D 



Parameter = logical unit, 
Parameter, 

Parameter can be one of the following letters: I,L,R,A,X, or P (refer to Table lO-l). 
Refer to the MPX/RT Reference Manual, Control Data publication No. 14062300, for 
legal logical unit (LU) numbers. 



Sample *FTN card: 



r 



*FTN (L,A,X,P) 
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TABLE 10-1. PARAMETER/LU 



Parameter 


No LU 


LU 


No Field Present 


I 


Source input 


Source input 


Source input from 




from LU 63, 


from named LU. 


LU 63. 




standard input 


If LU is other 






unit. 


than 63, user 
must ensure that 
file is OPEN to 
job. 




L 


Source language 


Source language 


No source listing 




listing and 


listing written 


provided. 




diagnostics 


on specified LU. 






appear on LU 








62, standard 








output unit. 






R 


Cross-reference 


Cross-reference 


No cross-reference 




list written on 


list written on 


listing provided. 




LU 62. 


specified LU. 
Note: It is 

recommended- that 

cross reference 
unit be same as 
source listing 
unit. 




A 


Assembly language 


Assembly language 


No listing of assembly 




listing written on 


listing written on 


lai^uage produced. 




LU 62. 


specified LU. 




X 


Relocatable binary 


Relocatable binary 


No relocatable binary 




output written on 


card images of 


file written. 




LU 57, standard 


compiled programs 






load and go file. 


written on named 
LU. 




P 


Relocatable binary 


Relocatable binary 


No binary deck 




output written on 


card images of 


provided. 




LU 61, standard 


compiled programs 






punch unit. 


written on named 

LU. 




o 


Optimization is 


= 2 Associativity will 


No optimization is per- 




performed. 


also be performed. 


formed . 



o 

O' 

o 

Q 
O 

o 



C 
G 
C 
C 



NOTE: The cross reference (R) must be turned on to remove the dead variables when the 
optimizer is on, 

10-2 • 14061100G 



c 
c 
c 





o 



D 




n 



Source language and assembly listings are written on the standard output unit, LU 62. The 
punchable output is written on the standard punch unit, LU 61, and automatically punched. 
Executable output is written on the standard load and go file, LU 57. Input source was 
read from the standard ii5)ut unit, LU 63. 



r 



*FTN ([ = 10, L, R, X = 11 



o 
o 




o 



■ 



D 


fTh The FORTRAN compiler uses system scratch files 1 and 2 (LUs 59 and 60) as intermediate 

*«^ files. The user should r^josition tiiese files if they are to be used later in the job. 

^ A FINIS card is used to notify the compiler that there are no more programs to be com- 

*^ piled. The word FINK must begin in column 10. 



Source iiput is from LU 10. Source output listing with cross-reference listing is on LU 
62. Executable binary is written on LU 11. 

For a detailed description of all MPX control cards, refer to the MPX/RT Reference 
Manual (Section 2). Information relevant to FORTRAN is, however, contained in this 
section. 

Core memory assigned to a job should be requested by the user via the MPX schedule 
statement (*SCHED). A minimimi of 11 p^es is needed to compile small FORTRAN 
programs. Larger programs require more memory, i^ to a maximum of 16 p^es. When 
executing FORTRAN-compiled programs containing ASCII input or output statements, memory 
must be scheduled for I/O buffers (a 480-word buffer for each unique logical unit). 



r 



10 



FIMS 



OPTIMIZATION 



If the O option is on the control card, optimization is performed on the program. The 
types of optimizations performed are described below. 

Whenever the program is changed due to the OPTIMIZATION process, an informative mes- 
sage is output to the list unit, giving the number of the statement that was modified. 
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1. Redundant code within a sequence of statement ( block ) is removed. Redundant code is 
that code that is duplicated in a block of statements that has one entrance. 

EXAMPLE 



The subscripts for both A and B produce the same code for the index. Therefore the 
code is redimdant, and the calucaltion of the second index is removed. The index cal- 
culation for A is also used for B. 



EXAMPLE 

DO 10 I = 1, 10 
J = K 
A ( I ) + J * I 

10 CONTINUE 

In this set of statements, the statement J = K does not change values after the initial 
evaluation. The evaluation of this statement can be moved outside of the loop to give 
a statement sequence similar to the sequence below: 
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o 
o 
o 



DIMENSION A(10, 10), B(10, 10) 

DO 10 1=1,10 (O 

A(I,J)=K ^^ 

B(I,J)=0 
10 CONTINUE 



1> 

o 



Constants within a statement are combined where possible. 4~\ 

EXAMPLE 



A = 5 + 10 - B + 10 fr 

This statement would have the 5 + 10 combined and the statement would become: 

A = 15 - B + 10 
Note that associativity does not apply 

MQr2 is on. the. control caxd, asspciatmty MlLM^perlpr™:©**. _ 



y 

/'"^\ 

W 



3. Code that doesn't change values during execution of a DO loop is moved outside of the 

loop. Vy 



\^ 



Vy 



c 



J = K 

DO 10 I = 1, 10 

A (I) = J *I %^ 

10 CONTINUE 



c 



c 



o 



o 
o 
o 









D 

D 




D 
D 







4. Variables that are not used or referenced are deleted from the generated code. 

EXAMPLE 

PROGRAM EX 
INTEGER A (10) 
DO 10 I = 1,10 
A (I) = I 
B (I) = I 

10 CONTINUE 

PRINT 100, B 

100 FORMAT (1014) 
STOP 
END 

The array A is never used in this program. Because it isn't used, it can be removed 
from tJie generated code and reduce the amount of memory required for the program. 

NOTE: The cross-reference (R) must be turned on to remove dead variables when the 
optimizer is on. 

5. Statements that are not referenced are eliminated. A referenced statement Is one 
tiiat can be executed sometime during a program's execution. A nonreferenced state- 
ment usually occurs following a GOTO statement because of a missing label. 

EXAMPLE 

I = J * 10 
GOTO 30 
A = B + J 

30 CONTINUE 

Ihe statement A = B + J ( and any other statement following this and prior to the 30 
continue ) are nonreferenced statements. Because it is never executed, the statement(s) 
can be deleted and have no effect on the program execution and reduce the amount of 
memory needed for the program. 



CALLING SE^IffiNa^ 



Programs written in MP-60 assembly language (COMPASS) may call or be called by pro- 
grams compiled by MP-60 FORTRAN. Calling sequence conventions have been established 
for this purpose. 
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■• 



The calling sequence compiled for an external reference of the form 
CALL NAME (pi,P2" "Pn ) ^^'• 



JSX 
UJP 
VFD 
VFD 



NAME» R9 
*+(n+l) 
16/M, 16/p^ 
16/M, 16/p2 



VFD 
Where; 

NAME 
M 



16/M, 16/pn 



Entry point of the program unit being referenced 



Mode of p 

Bit 2 
Bits 
Bit 4 
Bits 
Bite 



i 



Set 
Set 
Set 
Set 
Set 



Pi^ 



Address of the i"* parameter 



Bit address 
Char address 
Half-word address 
Word address 
Double word address 

th 



The main program, the set of FORTRAN statements bounded by a PROGRAM statement and 
an END statement is entered initially by MPX. If the main program contains either ASCII 

I/O statements or STOP statements^ a FORTRAN library routine with entry points 
Q8QENTRY and Q8QEXITS is provided to interface with MPX. 

Subroutines, entered by the CALL statement or from COMPASS programs, use all registers. 
Functions return the function value in register RE (or RE-RF if the function is a type 
double precision). Both subroutines and ftmctions require register XI to be zero upon 
entrance. Refer to Section 7 for further explanation of subprogram relationships. 



o 



o 



G 



4 ~1K 






( 

H y 



''K.J' 



C 



*Nbte that if pj is type character, address field would be 14/0, 18/pj, 
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c 



c 



o 
o 
o 



o 





LIBRARy ROUTINES 





D 
O 





D 
D 



d 



Library Function 


Definition 


ABS(a) 


|a| (absolute value)** 


AINT(a) 


Truncation** 


ALOG(a) 


logg(a) 


ALOGlO(a) 


log^o(a) 


AMAX0(a^,a2,...) 


maxCa^.a^,...) 


AMAXl(a^.a2,...) 


max(a^,a2,...) 


AMINOCa^^.a^,...) 


min(a^,a2,...) 


AMINlCa^ja^,...) 


min(a^,a2,...) 


AMOD(a^. a^) 


a^(niod a^)** 


ANDCa^.a^) 


a^Aa^** 


ATAN(a) 


arctan(a) 


ATAN2(ai,a2) 


arctan (a /a ) 


COS(a) 


COS (a)** 


DABS (a) 


|a|** 


DATAN(a) 


arctan (a) 


DATAN2(a^,a2) 


arctan (a^/a^) 



Type of 


Type of 


Argument 


Result 


Real 


Real 


Real 


Real 


Real 


Real 


Real 


Real 


Integer 


Real 


Real 


Real 


Integer 


Real 


Real 


Real 


Real 


Real 


Int^er 


Integer 


Real 


Real 


Real 


Real 


Real 


Real 


Double 


Double 


Double 


Double 


Double 


Double 



** Function is performed in-line (not a library routine). 
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Library Function 



DBLE(a) 



DCOS(a) 

DDIMCa^.a^) 

DEXP(a) 

DINT (a) 

DFLOAT(a) 

DLOG(a) 

DLOG10(a) 

DMAXl(a .a^,...) 

DMINl(a ,a , ...) 

DMOD(a^,a2) 

DSIGN(a^,a2) 

DSIN(a) 

DSQRT(a) 

ENABLE% 



EXP (a) 
FDATE(a) 

FLOAT (a) 



Definition 



Express single precision argument 
in double precision form ** 

cos(a) ** 



a^-min(a^, a^) ** 



a^-min(a^,a2) ** 

Sign of a times largest integer < j a |** 

Convert from integer to double ** 



Type of 
Argument 

Real 



log (a) 




logjo(a) 




max(a^, a^, . . . ) 




min (a^.a^,...) 




a, (mod Si J*/** 
1 ^ 




Sign of ag times 


h 


sin(a) ** 




yr 





Initialize fault indicators and enable 
arithmetic class interrupts 



Subroutine to obtain system data 



Conversion from integer to real ** 



Type of 
Result 

Double 



o 





Double 


Double 


o 




Double 


Double 


o 




Double 


Double 


.1 ' 




Real 


Real 


^O' 


a ** 


Real 


Double 


n 
'<_-' 




Integer 


Double 


1 




Double 


Double 


^^' 




Double 


Double 


^/f' '\ 




Double 


Double 


r"-- 




Double 


Double 






Double 


Double 


''•■i. y 




Double 


Double 


/'"~^-> 




Double 


Double 


'i,^'' 
.^~~''-- 




Double 


Double 


i 




Not 


Integer 


G 




Applicable 






Real 


Real 






Any Tiipe 


Ascn 

(2 words) 


r- 



Integer 



Real 



,in- 



** Function is performed in-line (not a library routine) , 



c 
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c 



o 
o 




o 

o 


D 


D 




t} 

IP 



Library Function 



Definition 



Type of 



** Function is performed in-line (not a library routine). 
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Type of 







Argument 


Result 


IABS(a) 


|a| ** 


Integer 


Integer 


IDIMCa^.a^) 


a^-min(a^,a2) ** 


Integer 


Integer 


FTIME(a) 


Subroutine to obtain system time 


Any Type 


Ascn 

(2 words) 


IARCHK(I) 


Determine if arithmetic overflow has 
occurred. Returns 1 if there is a 
fault, 2 if there is no fault 


Integer 
variable 


Integer 


IDINT(a) 


Sign of a times largest integer 


Double 


Integer 


IDVCHKa) 


Determine if divide fault has occurred. 
Returns 1 if there is a fault, 2 if 
there is no fault 


Integer 
variable 


Integer 


IFIX(a) 


Conversion from real to integer ** 


Real 


Integer 


IFNCHK(I) 


Determine if function fault has 
occurred. Returns 1 if there is a 
fault, 2 if there is no fault 


Integer 
variable 


Integer 


INT (a) 


Sign of a times largest integer 


Real 


Integer 


IOVERFL(I) 


Determine if exponent overflow has 
occurred. Returns 1 if there is a 
fault, 2 if there is no fault 


Integer 
variable 


Integer 


ISHFTCa^.a^) 


Value is first argument shifted by 
second. If second argument is 
negative, shift is right; if positive, 
shift is left circular ** 


Any Type 


Integer 


ISIGNCa^.a^) 


Sign of a times a^ ** 


Integer 


Integer 


MAXO(a , a , . . . ) 
1 ^ 


max (a^.a^,...) 


Integer 


Integer 


MAXKa^.a^,...) 


max(a^, a^, . . . ) 


Real 


Integer 
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Library Function 


Definition 


MINOCa^.a^,...) 


min (a^.a^,...) 


MINKa^.a^,...) 


min(aj^,a2,...) 


MODCa^.a^) 


a, (mod a.)* ** 
1 i 


NOT (a) 


a ** 


OR(a^,a2) 


a^Vag ** 


SECOND(a) 


System time in seconds 


SIGN(a^,a2) 


Sign of a times a ** 


SIN (a) 


sin(a) ** 


SNGL(a) 


Obtain most significant pa 




double precision argument 


SQRT(a)/SQRTF(a) 


>/ir ** 


" T7*LN(a) 


tan(a) 


TANK (a) 


tanh(a) 


X0R(a^,a2) or 


\-^s 


EOR(aj^. a^) 





*a (mod a ) is defined as a - 



Type of 


Type of 


o 


Argument 


R esult 


^~>,. 


Integer 


Integer 


o 


Real 


Integer 


o 


Integer 


Integer 


^l^jF- 


Integer 


Integer 


o 


Integer 


Integer 


o 


Any TjT)e 


Real 




Real 


Real 


o 


Real 


Real 


o 


Double 


Real 


c 


Real 


Real 




Real 


Real 


1 

[ 


Real 


Real 


v^ 


Integer 


Integer 













c 



a , where [X] is the integer whose magnitude does 



not exceed the magnitude of X and whose sign is the same as X. 
** Function is performed in-line (not a library routine). 
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c 
c 
c 
c 

c 





o 



o 



FTNWRITE 



o 
o 

o 

o 

This subroutine is called as follows: 

^J Cft.LL FTNWRITE (PI, P2, P3, P4) 

where PI = First word/byte of data to be written (see P3 for wordAyte) 

P2 = Number of words/bytes to be written (see P3 for words/bytes) 

PS = Mode control (2 digits in hexadecimal format): 

00 = ASCn record, word format 

10 = ASCn record, byte format 

20 = BINARY record, word format 

rf^ P4 = Logical unit number. 

O NOTE 

%J' Caution must be exercised when calling this 

subroutine that the FORTRAN user does not 
f% intermix with FORTRAN I/O statements with- 

^^ out cheeking for completion status. 



f\ This subroutine will load the address of PI and the values of P2 throi^h P4 into registers 

^ and perform a monitor call to MPX routine WRITHJ. Upon return of control, this sub- 



D 
D 

[J 14061100 C F-17 

D 



routine will return to caller. 

GROUP 4 FTNINT4 

FTNPARM 

This subroutine is called as follows: 
CALL FTNPARM (P1,P2,P3) 



o 

where PI = Address of area where data from PARM is to be saved 

P2 = This value plus PARM will be first word retrieved from PARM ^y 

P3 = Number of words to be retrieved from PARM starting at word specified by P2, 

This subroutine will load the appropriate parameters. Pi through P3 into registers. The 
subroutine will retrieve the locations within PARM specified by P2 and P3 and store the ^-^^ 

contents of these locations in the area specified by PI. Upon completion of this function, (|_p 

control will be returned to the calling program. 



Q8QMOVE 

This siibroutine is called as follows: 

CALL Q8QMOVE(Pl,P2,P3) 

Where: 

PI = buffer first wor(Vcharacter address of from area. 

P2 = buffer first word/character address of to area 

P3 = number of elements to move 

NOTE: 
PI, P2,P3 must not be logical 
The siibroutine wiU move P3 data items from PI to P2. P3 assumes the mode of PI. 



Examples: 

(1) INTEGER A,B 

DIMENSION A (100),B(100) 
CALL Q8QMOVE(A(1),B(1),100) 

This example will copy array A into array B 
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o 



G 
O 



V^ 



k^ 



The MOVE subroutine is provided primarily to allow for the fastest possible movement of \,^^^ 

relatively large blocks of central memory. It employs the move machine instructions which 

were fetch and store one word (32-bits) of physical memory at a time directly from the orig- ^^ 

inating block to the receiving block. Caution must be observed when the originating and re- \_^ 

ceiving blocks overlap in physical memory. Review the following examples to see the effects 

of the move. Exana^le 4 shows the effects of overlapped buffers. 



C 



c 



c 



o 



o 


(2) 















(3) 















(4) 



















D 


B(l) 


D 


B(2) 


D 


B(3) 
B(4) 


D 


B(5) 





B(6) 
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CHARACTER B 
INTEGER A 
DIMENSION A (100),B(500) 
CALL Q8QMOVE(A(1),B(1),100) 

This example will copy 100 elements from array A into character array B. 
The first 400 elements of array B will be filled. No check is made for 
bounds. 

CHARACTER A 
INTEGER B 
DIMENSION A (100),B(100) 
CaU Q8QMOVE (A (1),B(1),100) 

This example will copy 100 elements of A into B filling the first 25 elements 
of B 

INTEGER B 
CHARACTER A 
DIMENSION A(IOO) 
DIMENSION B(IOO) 
EQUIVALENCE (A(3).B(4)) 
CALL Q8QM0VE (A(1),B(1),100) 
CALL Q8QMOVE (B(1),A(1),10) 

The first call will cause a left shift of array A by 10 characters. The second 
call will cause a ri^t shift of array B by 10 characters, repeating the first 
10 characters every 10 characters. 



overlapped arrays 



data before 
1st move 



data after 
1st move 
















1 


2 


3 




A 


B 


C 


D 










4 


5 


6 


7 


E 


F 


G 


H 






A(l) 


A(2) 


8 


9 


A 


B 


I 


J 


K 


L 


A(3) 


A(4) 


A(5) 


A(6) 


C 


D 


E 


F 


M 


N 


O 


P 


A(7) 


A(8) 


A(9) 


A(10) 


G 


H 


I 


J 


Q 


R 


S 


T 


A(ll) 


A(12) 


A(13) 


A(14) 


K 


L 


M 


N 


u 


V 


w 


X 
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data after 
2nd MOVE 



A 


B 


C 


D 


E 


F 


G 


H 


I 


J 


A 


B 


C 


D 


E 


F 


G 


H 


I 


J 


A 


B 


C 


D 



u 

o 
o 

o 
o 









c 



c 

c 
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c 



o 



o 



Output Parameter: 
C^ K = Contents of character from FARM 

Routine; lAPAA 

Description: Allows passing of multiple cells to/from user PARM. 
fj Calling Sequence: 

_. CALL lAPAA (lA, IB, IE) 

o 

Input Parameters: 
^j) lA = Location where the multiple cells are to be stored. 

IB = Beginnii^ cell to be passed to/from PARM 

IE = End cell to be passed to/from PARM. Maximum value of IE is 50. 
Routine: LOCF 






o 






D 

Q 

D 



Description: Provides the address of a variable instead of the data itself. LOCF actually 
modifies the caller's code to load the address, hence LOCF is entered one time per 
occurrence. 

Calling Sequence: 

K = LOCF (VAR) 
Input Parameter: 

VAR = Variable for which address is desired. 
Output Parameter: 

K = Address of VAR 
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o 

o 

o 

To illustrate the use of the above routines, an example is provided. ^"^ 

PROGRAM EXAMPLE fj 



EXTERNAL STATGC 



DATA BLOCK/4HBLOC,4HKONE/ 



o 
o 



DIMENSION BLOCK(2) ^^,^^ 

SCRATCH COMMON/GLOBAL/A(4096) \j! 






c ^<-^ 

C STATUS GLOBAL COMMON BLOCKONE ^ 

C 

ISTATUS = lESR (STATGC, BLOCK<l), BLOCK(2), LOCF(A)) ^^ 

.„ISIZE_^._.IAEAW<2) ; _ „_. ..„ :_ l_.. 



\__y 



'^^ 



^--^, 
'<..'■ 



c 



c 
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o 



Routine; IBDB 

Description: Generate JSX call to specified blocker/deblocker routine. 
Calling Sequence: 
CALL IBDB (TYPE, PI, P2,P3,P4) 

K = IBDB (TYPE, PI, P2, P3,P4) 
Input Parameters: 

^J) TYPE = blocker/deblocker routine to execute (must be declared in an . 

EXTERNAL statement) 

O P1-P4 = Parameters one thru four, dependent on blocker/deblocker routine. 

Output Parameter: 

K = Contents of Parm+0, from blocker/deblocker call. 

^ GLOBAL COMMON DECLARATIONS 

r^ A special reserved scratch common block name (GLOBAL) is to be used by the program- 

gri' mer to signal the beginning of global common block declarations. Scratch common blocks 

1]> encountered by the loader before the occurrence of the common block name GLOBAL 

ft) constitute local scratch common. All subsequent scratch common blocks including 

•^ GLOBAL will start on a page boundary and comprise global common. 

Q) An example of FORTRAN coding Is shown below. 

SCRATCH COMMON/A(100), B(IOO) 
r% SCRATCH COMMON/BLOCK 1/C(4096) 

**^ SCRATCH COMMON/GLOBAL/D(2048), E(2048) 

SCRATCH COMMON/BLOCK 2/F(8192) 

D 

The example generates two pages of local scratch common and three pages of global 

D scratch common. Global common would start at logical address 2000. Global common 

) blocks could be mapped into addresses 2000 through 4FFFir and referenced by the arrays 

D, E, and F. •^*' 

[J The foUowlQg ESRs support the GLOBAL common feature, 

GETGC 
n STATGC 

RETGC 

[J Refer to the MPX/OS Reference Manual, Section 4.1, Executive Service Requests, for 

the usage of the above ESRs. 
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